(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 13.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    331983,       8280]
NotebookOptionsPosition[    327392,       8198]
NotebookOutlinePosition[    327793,       8214]
CellTagsIndexPosition[    327750,       8211]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Loop for plots as a function of n", "Item",
 CellChangeTimes->{{3.936704769258143*^9, 
  3.9367047847301006`*^9}},ExpressionUUID->"a3df9c9b-68d9-45f2-a57a-\
c2dca858fbf5"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"x", "=", "2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalOmega]", "=", 
   RowBox[{".001", "*", "x"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"\[Omega]1", "=", 
  RowBox[{
   RowBox[{"1000", "*", 
    SuperscriptBox["10", "9"]}], "+", 
   RowBox[{"x", " ", "241.9", "*", 
    SuperscriptBox["10", "9"]}]}]}]}], "Input",
 CellChangeTimes->{3.93931247423514*^9},
 CellLabel->"In[1]:=",ExpressionUUID->"624a2b8c-9db7-444b-b603-de89c37e96dc"],

Cell[BoxData["1.4838`*^12"], "Output",
 CellChangeTimes->{3.9393124747337646`*^9},
 CellLabel->"Out[3]=",ExpressionUUID->"9e498bc1-2b3c-41bd-992a-0eee42337222"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"tildealpha", "=", 
    RowBox[{"1", "/", "137"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"J", "=", " ", 
     RowBox[{"5.788", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "4"}]]}]}], ";"}], " ", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"eV", "^", 
      RowBox[{"-", "1"}]}], " ", 
     RowBox[{"nm", "^", 
      RowBox[{"-", "3"}]}]}], "*)"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"J", "=", 
    RowBox[{"3.31", "*", 
     SuperscriptBox["10", 
      RowBox[{"-", "4"}]]}]}], ";"}], " ", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"eV", "^", 
     RowBox[{"-", "1"}]}], " ", 
    RowBox[{"nm", "^", 
     RowBox[{"-", "3"}]}]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Cnm", "=", " ", 
    RowBox[{"3", "*", 
     SuperscriptBox["10", "8"], "*", 
     SuperscriptBox["10", "9"]}]}], ";"}], " ", 
  RowBox[{"(*", 
   RowBox[{"nm", "/", "s"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Gamma]m", "=", 
    RowBox[{"4.135", "*", 
     SuperscriptBox["10", 
      RowBox[{"-", "5"}]]}]}], ";"}], 
  RowBox[{"(*", "eV", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"maxion", "=", ".002"}], ";"}], " ", 
  RowBox[{"(*", "eV", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalOmega]", "=", ".002"}], ";"}], " ", 
  RowBox[{"(*", "eV", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Omega]1", "=", 
    RowBox[{"1483", "*", 
     SuperscriptBox["10", "9"]}]}], ";"}], 
  RowBox[{"(*", "Hz", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Omega]2", "=", 
    RowBox[{"1000", "*", 
     SuperscriptBox["10", "9"]}]}], ";"}], " ", 
  RowBox[{"(*", "Hz", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"1", " ", "meV"}], " ", "=", " ", 
    RowBox[{"241.9", " ", "GHz"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"\[CapitalOmega]", "=", ".001"}], ";", "\[IndentingNewLine]", 
    RowBox[{"\[Omega]1", "=", 
     RowBox[{"1241.9", "*", 
      SuperscriptBox["10", "9"]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"\[Omega]2", "=", 
     RowBox[{"1000", "*", 
      SuperscriptBox["10", "9"]}]}], ";"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"k1", "=", 
    FractionBox["\[Omega]1", "Cnm"]}], ";"}], " ", 
  RowBox[{"(*", " ", 
   SuperscriptBox["nm", 
    RowBox[{"-", "1"}]], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"k2", "=", 
    FractionBox["\[Omega]2", "Cnm"]}], ";"}], 
  RowBox[{"(*", 
   SuperscriptBox["nm", 
    RowBox[{"-", "1"}]], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Q", "=", 
    RowBox[{"k1", " ", "+", "k2"}]}], ";"}], 
  RowBox[{"(*", 
   SuperscriptBox["nm", 
    RowBox[{"-", "1"}]], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Epsilon]0", "=", 
    RowBox[{"55.263", "*", 
     SuperscriptBox["10", 
      RowBox[{"-", "3"}]]}]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"e", "^", "2"}], " ", 
    RowBox[{"eV", "^", 
     RowBox[{"-", "1"}]}], " ", 
    RowBox[{"nm", "^", 
     RowBox[{"-", "1"}]}]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Chi]e", "=", 
   RowBox[{
    SuperscriptBox["n", "2"], "-", "1"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"L", "=", 
    RowBox[{"6", "*", 
     SuperscriptBox["10", "5"]}]}], ";"}], 
  RowBox[{"(*", "nm", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"tildeg", "=", 
    RowBox[{
     FractionBox[
      RowBox[{"2", 
       SuperscriptBox["tildealpha", "2"]}], 
      RowBox[{" ", 
       SuperscriptBox["\[Pi]", "2"]}]], 
     FractionBox["\[Omega]1", 
      RowBox[{"J", "  ", "Cnm"}]], 
     FractionBox[
      SuperscriptBox["n", "3"], 
      RowBox[{"1", "+", "\[Chi]e"}]], "\[Epsilon]0", 
     FractionBox[
      RowBox[{"(", 
       RowBox[{"\[Gamma]m", "*", "\[CapitalOmega]"}], ")"}], 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["maxion", "2"], "-", 
          SuperscriptBox["\[CapitalOmega]", "2"]}], ")"}], "2"], "+", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"\[Gamma]m", "*", "\[CapitalOmega]"}], ")"}], "2"]}]]}]}], 
   ";"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"g", "=", 
    RowBox[{
     FractionBox[
      SuperscriptBox["tildealpha", "2"], 
      SuperscriptBox["\[Pi]", "2"]], 
     FractionBox["\[Omega]1", 
      RowBox[{"J", "*", 
       SuperscriptBox["Cnm", "2"]}]], 
     FractionBox[
      SuperscriptBox["n", "4"], 
      RowBox[{"1", "+", "\[Chi]e"}]], 
     FractionBox[
      RowBox[{"(", 
       RowBox[{"\[Gamma]m", "*", "\[CapitalOmega]"}], ")"}], 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["maxion", "2"], "-", 
          SuperscriptBox["\[CapitalOmega]", "2"]}], ")"}], "2"], "+", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"\[Gamma]m", "*", "\[CapitalOmega]"}], ")"}], "2"]}]]}]}], 
   ";"}], 
  RowBox[{"(*", 
   RowBox[{"units", " ", "nm", "*", 
    RowBox[{"s", "/", "eV"}]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"g", "*", 
    SuperscriptBox["10", 
     RowBox[{"-", "9"}]], "*", 
    FractionBox["1", "1.602"], "*", 
    SuperscriptBox["10", "19"]}], " ", ";"}], 
  RowBox[{"(*", 
   RowBox[{"units", " ", "of", " ", "m", "*", 
    RowBox[{"s", "/", "J"}]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g0", " ", "=", " ", 
   RowBox[{
    FractionBox[
     SuperscriptBox["tildealpha", "2"], 
     RowBox[{" ", 
      SuperscriptBox["\[Pi]", "2"]}]], 
    FractionBox["\[Omega]1", 
     RowBox[{"J", "*", 
      SuperscriptBox["Cnm", "2"]}]], 
    FractionBox[
     SuperscriptBox["n", "4"], 
     RowBox[{"1", "+", "\[Chi]e"}]], 
    FractionBox["1", 
     RowBox[{"\[Gamma]m", "*", "maxion"}]], "*", 
    FractionBox["1", "1.602"], "*", 
    SuperscriptBox["10", "19"]}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Xi]12", "[", 
    RowBox[{"\[Phi]1_", ",", "\[Phi]2_"}], "]"}], ":=", 
   RowBox[{
    FractionBox["\[Omega]2", "\[Omega]1"], 
    FractionBox[
     SuperscriptBox[
      RowBox[{"Cos", "[", "\[Phi]1", "]"}], "2"], 
     SuperscriptBox[
      RowBox[{"Cos", "[", "\[Phi]2", "]"}], "2"]]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Xi]34", "[", 
    RowBox[{"\[Phi]3_", ",", "\[Phi]4_"}], "]"}], ":=", 
   RowBox[{
    FractionBox["\[Omega]2", "\[Omega]1"], 
    FractionBox[
     SuperscriptBox[
      RowBox[{"Cos", "[", "\[Phi]3", "]"}], "2"], 
     SuperscriptBox[
      RowBox[{"Cos", "[", "\[Phi]4", "]"}], "2"]]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"tildeg12", "[", 
    RowBox[{"\[Phi]1_", ",", "\[Phi]2_"}], "]"}], ":=", 
   RowBox[{"tildeg", "*", 
    FractionBox[
     RowBox[{"Cos", "[", "\[Phi]2", "]"}], 
     RowBox[{"Cos", "[", "\[Phi]1", "]"}]], "*", 
    RowBox[{"Cos", "[", 
     RowBox[{"\[Phi]1", "-", "\[Phi]2"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"tildeg34", "[", 
     RowBox[{"\[Phi]3_", ",", "\[Phi]4_"}], "]"}], ":=", 
    RowBox[{"tildeg", "*", 
     FractionBox[
      RowBox[{"Cos", "[", "\[Phi]4", "]"}], 
      RowBox[{"Cos", "[", "\[Phi]3", "]"}]], "*", 
     RowBox[{"Cos", "[", 
      RowBox[{"\[Phi]3", "-", "\[Phi]4"}], "]"}]}]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"e", "^", "2"}], " ", "nm", "*", 
    RowBox[{"eV", "^", 
     RowBox[{"-", "3"}]}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Phases", ",", " ", 
    RowBox[{"general", " ", "definitions"}]}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Delta]10", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "I"}], " ", 
     RowBox[{"Log", "[", 
      FractionBox["E01", 
       RowBox[{"Abs", "[", "E01", "]"}]], "]"}]}], "-", 
    RowBox[{
     FractionBox["1", 
      RowBox[{"2", 
       RowBox[{"(", 
        RowBox[{"1", "+", "\[Chi]e"}], ")"}]}]], 
     FractionBox[
      RowBox[{
       SuperscriptBox["maxion", "2"], "-", 
       SuperscriptBox["\[CapitalOmega]", "2"]}], 
      RowBox[{"\[Gamma]m", "*", "\[CapitalOmega]"}]], 
     RowBox[{"Log", "[", 
      FractionBox[
       RowBox[{
        RowBox[{
         SuperscriptBox[
          RowBox[{"Abs", "[", "E02", "]"}], 
          RowBox[{"2", " "}]], 
         RowBox[{"Exp", "[", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{"tildeg12", "[", 
             RowBox[{"0", ",", "0"}], "]"}]}], "*", "L", "*", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"\[Xi]12", "[", 
               RowBox[{"0", ",", "0"}], "]"}], 
              SuperscriptBox[
               RowBox[{"Abs", "[", "E01", "]"}], "2"]}], "-", 
             SuperscriptBox[
              RowBox[{"Abs", "[", "E02", "]"}], "2"]}], ")"}]}], "]"}]}], "-", 
        RowBox[{
         RowBox[{"\[Xi]12", "[", 
          RowBox[{"0", ",", "0"}], "]"}], 
         SuperscriptBox[
          RowBox[{"Abs", "[", "E01", "]"}], "2"]}]}], 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Abs", "[", "E02", "]"}], "2"], "-", 
        RowBox[{
         RowBox[{"\[Xi]12", "[", 
          RowBox[{"0", ",", "0"}], "]"}], 
         SuperscriptBox[
          RowBox[{"Abs", "[", "E01", "]"}], "2"]}]}]], "]"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Delta]20", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "I"}], " ", 
     RowBox[{"Log", "[", 
      FractionBox["E02", 
       RowBox[{"Abs", "[", "E02", "]"}]], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", 
      RowBox[{"2", 
       RowBox[{"(", 
        RowBox[{"1", "+", "\[Chi]e"}], ")"}]}]], 
     FractionBox[
      RowBox[{
       SuperscriptBox["maxion", "2"], "-", 
       SuperscriptBox["\[CapitalOmega]", "2"]}], 
      RowBox[{"\[Gamma]m", "*", "\[CapitalOmega]"}]], 
     RowBox[{"Log", "[", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"Abs", "[", "E02", "]"}], "2"], "-", 
        RowBox[{
         RowBox[{"\[Xi]12", "[", 
          RowBox[{"0", ",", "0"}], "]"}], 
         SuperscriptBox[
          RowBox[{"Abs", "[", "E01", "]"}], "2"], 
         RowBox[{"Exp", "[", 
          RowBox[{
           RowBox[{"tildeg12", "[", 
            RowBox[{"0", ",", "0"}], "]"}], "*", "L", "*", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"\[Xi]12", "[", 
               RowBox[{"0", ",", "0"}], "]"}], 
              SuperscriptBox[
               RowBox[{"Abs", "[", "E01", "]"}], "2"]}], "-", 
             SuperscriptBox[
              RowBox[{"Abs", "[", "E02", "]"}], "2"]}], ")"}]}], "]"}]}]}], 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Abs", "[", "E02", "]"}], "2"], "-", 
        RowBox[{
         RowBox[{"\[Xi]12", "[", 
          RowBox[{"0", ",", "0"}], "]"}], 
         SuperscriptBox[
          RowBox[{"Abs", "[", "E01", "]"}], "2"]}]}]], "]"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Delta]30", "=", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Abs", "[", "E03", "]"}], "<", 
       SuperscriptBox["10", 
        RowBox[{"-", "15"}]]}], "&&", 
      RowBox[{
       RowBox[{"Abs", "[", "E04", "]"}], "<", 
       SuperscriptBox["10", 
        RowBox[{"-", "15"}]]}]}], ",", "0", ",", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "I"}], " ", 
       RowBox[{"Log", "[", 
        FractionBox["E03", 
         RowBox[{"Abs", "[", "E03", "]"}]], "]"}]}], "+", 
      RowBox[{
       FractionBox["1", 
        RowBox[{"2", 
         RowBox[{"(", 
          RowBox[{"1", "+", "\[Chi]e"}], ")"}]}]], 
       FractionBox[
        RowBox[{
         SuperscriptBox["maxion", "2"], "-", 
         SuperscriptBox["\[CapitalOmega]", "2"]}], 
        RowBox[{"\[Gamma]m", "*", "\[CapitalOmega]"}]], 
       RowBox[{"Log", "[", 
        FractionBox[
         RowBox[{
          SuperscriptBox[
           RowBox[{"Abs", "[", "E04", "]"}], "2"], "-", 
          RowBox[{
           RowBox[{"\[Xi]34", "[", 
            RowBox[{"0", ",", "0"}], "]"}], 
           SuperscriptBox[
            RowBox[{"Abs", "[", "E03", "]"}], "2"]}]}], 
         RowBox[{
          RowBox[{
           SuperscriptBox[
            RowBox[{"Abs", "[", "E04", "]"}], "2"], 
           RowBox[{"Exp", "[", 
            RowBox[{
             RowBox[{"tildeg34", "[", 
              RowBox[{"0", ",", "0"}], "]"}], "*", "L", "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"\[Xi]34", "[", 
                 RowBox[{"0", ",", "0"}], "]"}], " ", 
                SuperscriptBox[
                 RowBox[{"Abs", "[", "E03", "]"}], "2"]}], "-", 
               SuperscriptBox[
                RowBox[{"Abs", "[", "E04", "]"}], "2"]}], ")"}]}], "]"}]}], 
          "-", 
          RowBox[{
           RowBox[{"\[Xi]34", "[", 
            RowBox[{"0", ",", "0"}], "]"}], 
           SuperscriptBox[
            RowBox[{"Abs", "[", "E03", "]"}], "2"]}]}]], "]"}]}]}]}], "]"}]}],
   ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Delta]40", "=", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Abs", "[", "E03", "]"}], "<", 
       SuperscriptBox["10", 
        RowBox[{"-", "15"}]]}], "&&", 
      RowBox[{
       RowBox[{"Abs", "[", "E04", "]"}], "<", 
       SuperscriptBox["10", 
        RowBox[{"-", "15"}]]}]}], ",", "0", ",", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "I"}], " ", 
       RowBox[{"Log", "[", 
        FractionBox["E04", 
         RowBox[{"Abs", "[", "E04", "]"}]], "]"}]}], "-", 
      RowBox[{
       FractionBox["1", 
        RowBox[{"2", 
         RowBox[{"(", 
          RowBox[{"1", "+", "\[Chi]e"}], ")"}]}]], 
       FractionBox[
        RowBox[{
         SuperscriptBox["maxion", "2"], "-", 
         SuperscriptBox["\[CapitalOmega]", "2"]}], 
        RowBox[{"\[Gamma]m", "*", "\[CapitalOmega]"}]], 
       RowBox[{"Log", "[", 
        FractionBox[
         RowBox[{
          SuperscriptBox[
           RowBox[{"Abs", "[", "E04", "]"}], "2"], "-", 
          RowBox[{
           RowBox[{"\[Xi]34", "[", 
            RowBox[{"0", ",", "0"}], "]"}], 
           SuperscriptBox[
            RowBox[{"Abs", "[", "E03", "]"}], "2"]}]}], 
         RowBox[{
          SuperscriptBox[
           RowBox[{"Abs", "[", "E04", "]"}], "2"], "-", 
          RowBox[{
           RowBox[{"\[Xi]34", "[", 
            RowBox[{"0", ",", "0"}], "]"}], 
           SuperscriptBox[
            RowBox[{"Abs", "[", "E03", "]"}], "2"], 
           RowBox[{"Exp", "[", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{"tildeg34", "[", 
               RowBox[{"0", ",", "0"}], "]"}]}], "*", "L", "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"\[Xi]34", "[", 
                 RowBox[{"0", ",", "0"}], "]"}], " ", 
                SuperscriptBox[
                 RowBox[{"Abs", "[", "E03", "]"}], "2"]}], "-", 
               SuperscriptBox[
                RowBox[{"Abs", "[", "E04", "]"}], "2"]}], ")"}]}], "]"}]}]}]],
         "]"}]}]}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.9385156386229124`*^9, 3.938515660762638*^9}},
 CellLabel->"In[10]:=",ExpressionUUID->"3140576a-54a9-4d6d-b089-3b10a6830151"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"l", "=", "20"}], ";"}], " ", 
  RowBox[{"(*", 
   RowBox[{"Loop", " ", "iterations"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"datapoints", "=", 
   RowBox[{"250", "*", "4", "*", "2"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Reflectance1", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Transmittance1", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Reflectance2", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Transmittance2", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"reflEstimate", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"transEstimate", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"j", "=", "0"}], ",", 
   RowBox[{"j", "<=", "datapoints"}], ",", 
   RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Initializing", " ", "values"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Clear", "[", 
      RowBox[{
      "E01", ",", "E02", ",", "E03", ",", "E04", ",", "E1r", ",", "E1t", ",", 
       "E2r", ",", "E2t", ",", "E01L", ",", "E02L", ",", "E03L", ",", 
       "E04L"}], "]"}], "\[IndentingNewLine]", 
     RowBox[{"tildealpha", "=", 
      RowBox[{"1", "/", "137"}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"J", "=", " ", 
     RowBox[{"3.31", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "4"}]]}]}], ";", " ", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{"eV", "^", 
       RowBox[{"-", "1"}]}], " ", 
      RowBox[{"nm", "^", 
       RowBox[{"-", "3"}]}]}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{"J", "=", " ", 
       RowBox[{"5.788", "*", 
        SuperscriptBox["10", 
         RowBox[{"-", "4"}]]}]}], ";"}], " ", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"eV", "^", 
        RowBox[{"-", "1"}]}], " ", 
       RowBox[{"nm", "^", 
        RowBox[{"-", "3"}]}]}], "*)"}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{"Cnm", "=", " ", 
     RowBox[{"3", "*", 
      SuperscriptBox["10", "8"], "*", 
      SuperscriptBox["10", "9"]}]}], ";", " ", 
    RowBox[{"(*", 
     RowBox[{"nm", "/", "s"}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{"\[Gamma]m", "=", 
     RowBox[{"4.135", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "5"}]]}]}], ";", 
    RowBox[{"(*", "eV", "*)"}], "\[IndentingNewLine]", 
    RowBox[{"maxion", "=", ".002"}], ";", " ", 
    RowBox[{"(*", "eV", "*)"}], "\[IndentingNewLine]", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{"\[CapitalOmega]", "=", ".002"}], ";", " ", 
      RowBox[{"(*", "eV", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"\[Omega]1", "=", 
       RowBox[{"1483", "*", 
        SuperscriptBox["10", "9"]}]}], ";", 
      RowBox[{"(*", "Hz", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"\[Omega]2", "=", 
       RowBox[{"1000", "*", 
        SuperscriptBox["10", "9"]}]}], ";"}], " ", 
     RowBox[{"(*", "Hz", "*)"}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{"1", " ", "meV"}], " ", "=", " ", 
      RowBox[{"241.9", " ", "GHz"}]}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{"x", "=", "2"}], ";", "\[IndentingNewLine]", 
    RowBox[{"\[CapitalOmega]", "=", 
     RowBox[{".001", "*", "x"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"\[Omega]1", "=", 
     RowBox[{
      RowBox[{"1000", "*", 
       SuperscriptBox["10", "9"]}], "+", 
      RowBox[{"x", " ", "241.9", "*", 
       SuperscriptBox["10", "9"]}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"\[Omega]2", "=", 
     RowBox[{"1000", "*", 
      SuperscriptBox["10", "9"]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"k1", "=", 
     FractionBox["\[Omega]1", "Cnm"]}], ";", " ", 
    RowBox[{"(*", " ", 
     SuperscriptBox["nm", 
      RowBox[{"-", "1"}]], "*)"}], "\[IndentingNewLine]", 
    RowBox[{"k2", "=", 
     FractionBox["\[Omega]2", "Cnm"]}], ";", 
    RowBox[{"(*", 
     SuperscriptBox["nm", 
      RowBox[{"-", "1"}]], "*)"}], "\[IndentingNewLine]", 
    RowBox[{"Q", "=", 
     RowBox[{"k1", " ", "+", "k2"}]}], ";", 
    RowBox[{"(*", 
     SuperscriptBox["nm", 
      RowBox[{"-", "1"}]], "*)"}], "\[IndentingNewLine]", 
    RowBox[{"\[Epsilon]0", "=", 
     RowBox[{"55.263", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "3"}]]}]}], ";", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{"e", "^", "2"}], " ", 
      RowBox[{"eV", "^", 
       RowBox[{"-", "1"}]}], " ", 
      RowBox[{"nm", "^", 
       RowBox[{"-", "1"}]}]}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{"E1a", "=", ".0055"}], ";", 
    RowBox[{"(*", 
     RowBox[{"V", "/", "nm"}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{"E2a", " ", "=", 
     SuperscriptBox["10", 
      RowBox[{"-", "6"}]]}], ";", 
    RowBox[{"(*", 
     RowBox[{"V", "/", "nm"}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{"L", "=", 
       RowBox[{"6", "*", 
        SuperscriptBox["10", "5"]}]}], ";"}], 
     RowBox[{"(*", "nm", "*)"}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{"L", "=", 
     RowBox[{"6", "*", 
      SuperscriptBox["10", "5"]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"n", "=", 
     RowBox[{"1", "+", 
      RowBox[{"j", "*", 
       RowBox[{".01", "/", 
        RowBox[{"(", 
         RowBox[{"4", "*", "2"}], ")"}]}]}]}]}], ";", " ", 
    RowBox[{"(*", 
     RowBox[{"index", " ", "of", " ", "refraction"}], "*)"}], 
    "\[IndentingNewLine]", 
    RowBox[{"\[Chi]e", "=", 
     RowBox[{
      SuperscriptBox["n", "2"], "-", "1"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"(*", 
     RowBox[{"Quantities", " ", "updated", " ", "with", " ", "n"}], "*)"}], 
    "\[IndentingNewLine]", 
    RowBox[{"tildeg", "=", 
     RowBox[{
      FractionBox[
       RowBox[{"2", 
        SuperscriptBox["tildealpha", "2"]}], 
       RowBox[{" ", 
        SuperscriptBox["\[Pi]", "2"]}]], 
      FractionBox["\[Omega]1", 
       RowBox[{"J", "  ", "Cnm"}]], 
      FractionBox[
       SuperscriptBox["n", "3"], 
       RowBox[{"1", "+", "\[Chi]e"}]], "\[Epsilon]0", 
      FractionBox[
       RowBox[{"(", 
        RowBox[{"\[Gamma]m", "*", "\[CapitalOmega]"}], ")"}], 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["maxion", "2"], "-", 
           SuperscriptBox["\[CapitalOmega]", "2"]}], ")"}], "2"], "+", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Gamma]m", "*", "\[CapitalOmega]"}], ")"}], "2"]}]]}]}], 
    ";", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"tildeg12", "[", 
      RowBox[{"\[Phi]1_", ",", "\[Phi]2_"}], "]"}], ":=", 
     RowBox[{"tildeg", "*", 
      FractionBox[
       RowBox[{"Cos", "[", "\[Phi]2", "]"}], 
       RowBox[{"Cos", "[", "\[Phi]1", "]"}]], "*", 
      RowBox[{"Cos", "[", 
       RowBox[{"\[Phi]1", "-", "\[Phi]2"}], "]"}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"tildeg34", "[", 
      RowBox[{"\[Phi]3_", ",", "\[Phi]4_"}], "]"}], ":=", 
     RowBox[{"tildeg", "*", 
      FractionBox[
       RowBox[{"Cos", "[", "\[Phi]4", "]"}], 
       RowBox[{"Cos", "[", "\[Phi]3", "]"}]], "*", 
      RowBox[{"Cos", "[", 
       RowBox[{"\[Phi]3", "-", "\[Phi]4"}], "]"}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"\[Theta]12", "=", "0"}], ";", "\[IndentingNewLine]", 
    RowBox[{"\[Theta]34", "=", "0"}], ";", "\[IndentingNewLine]", 
    RowBox[{"\[Theta]12c", "=", "0"}], ";", "\[IndentingNewLine]", 
    RowBox[{"\[Theta]34c", "=", "0"}], ";", "\[IndentingNewLine]", 
    RowBox[{"\[Theta]12L", "=", "0"}], ";", "\[IndentingNewLine]", 
    RowBox[{"\[Theta]34L", "=", "0"}], ";", "\[IndentingNewLine]", 
    RowBox[{"\[Theta]12cL", "=", "0"}], ";", "\[IndentingNewLine]", 
    RowBox[{"\[Theta]34cL", "=", "0"}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"E02sq", "[", 
      RowBox[{"z_", ",", "\[Phi]1_", ",", "\[Phi]2_"}], "]"}], ":=", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"Abs", "[", "E02", "]"}], "2"], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"\[Xi]12", "[", 
            RowBox[{"\[Phi]1", ",", "\[Phi]2"}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{"Abs", "[", "E01", "]"}], "2"]}], "-", 
          SuperscriptBox[
           RowBox[{"Abs", "[", "E02", "]"}], "2"]}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"\[Xi]12", "[", 
            RowBox[{"\[Phi]1", ",", "\[Phi]2"}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{"Abs", "[", "E01", "]"}], "2"], " ", 
           RowBox[{"Exp", "[", 
            RowBox[{
             RowBox[{"tildeg12", "[", 
              RowBox[{"\[Phi]1", ",", "\[Phi]2"}], "]"}], "*", "z", "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"\[Xi]12", "[", 
                 RowBox[{"\[Phi]1", ",", "\[Phi]2"}], "]"}], 
                SuperscriptBox[
                 RowBox[{"Abs", "[", "E01", "]"}], "2"]}], "-", 
               SuperscriptBox[
                RowBox[{"Abs", "[", "E02", "]"}], "2"]}], ")"}]}], "]"}]}], 
          "-", 
          SuperscriptBox[
           RowBox[{"Abs", "[", "E02", "]"}], "2"]}], ")"}]}], ")"}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"E01sq", "[", 
      RowBox[{"z_", ",", "\[Phi]1_", ",", "\[Phi]2_"}], "]"}], ":=", 
     RowBox[{"Simplify", "[", 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Xi]12", "[", 
           RowBox[{"\[Phi]1", ",", "\[Phi]2"}], "]"}], ")"}], 
         RowBox[{"-", "1"}]], "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"E02sq", "[", 
           RowBox[{"z", ",", "\[Phi]1", ",", "\[Phi]2"}], "]"}], "-", 
          SuperscriptBox[
           RowBox[{"Abs", "[", "E02", "]"}], "2"]}], ")"}]}], "+", 
       SuperscriptBox[
        RowBox[{"Abs", "[", "E01", "]"}], "2"]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"E04sq", "[", 
      RowBox[{"z_", ",", "\[Phi]3_", ",", "\[Phi]4_"}], "]"}], ":=", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"Abs", "[", "E04", "]"}], "2"], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Xi]34", "[", 
           RowBox[{"\[Phi]3", ",", "\[Phi]4"}], "]"}], " ", 
          SuperscriptBox[
           RowBox[{"Abs", "[", "E03", "]"}], "2"]}], "-", 
         SuperscriptBox[
          RowBox[{"Abs", "[", "E04", "]"}], "2"]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Xi]34", "[", 
           RowBox[{"\[Phi]3", ",", "\[Phi]4"}], "]"}], " ", 
          SuperscriptBox[
           RowBox[{"Abs", "[", "E03", "]"}], "2"], " ", 
          RowBox[{"Exp", "[", 
           RowBox[{
            RowBox[{"-", 
             RowBox[{"tildeg34", "[", 
              RowBox[{"\[Phi]3", ",", "\[Phi]4"}], "]"}]}], "*", "z", "*", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"\[Xi]34", "[", 
                RowBox[{"\[Phi]3", ",", "\[Phi]4"}], "]"}], 
               SuperscriptBox[
                RowBox[{"Abs", "[", "E03", "]"}], "2"]}], "-", 
              SuperscriptBox[
               RowBox[{"Abs", "[", "E04", "]"}], "2"]}], ")"}]}], "]"}]}], 
         "-", 
         SuperscriptBox[
          RowBox[{"Abs", "[", "E04", "]"}], "2"]}], ")"}]}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"E03sq", "[", 
      RowBox[{"z_", ",", "\[Phi]3_", ",", "\[Phi]4_"}], "]"}], ":=", 
     RowBox[{"Simplify", "[", 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Xi]34", "[", 
           RowBox[{"\[Phi]3", ",", "\[Phi]4"}], "]"}], ")"}], 
         RowBox[{"-", "1"}]], 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"E04sq", "[", 
           RowBox[{"z", ",", "\[Phi]3", ",", "\[Phi]4"}], "]"}], "-", 
          SuperscriptBox[
           RowBox[{"Abs", "[", "E04", "]"}], "2"]}], ")"}]}], "+", 
       SuperscriptBox[
        RowBox[{"Abs", "[", "E03", "]"}], "2"]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"E01L", " ", "=", " ", "E01"}], ";", "\[IndentingNewLine]", 
    RowBox[{"E02L", "=", "E02"}], ";", "\[IndentingNewLine]", 
    RowBox[{"E03L", "=", "E03"}], ";", "\[IndentingNewLine]", 
    RowBox[{"E04L", "=", "E04"}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"For", "[", 
      RowBox[{
       RowBox[{"i", "=", "1"}], ",", 
       RowBox[{"i", "<=", "l"}], ",", 
       RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"i", "==", "1"}], ",", "\[IndentingNewLine]", 
         RowBox[{"(*", "Initialization", "*)"}], "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"E01L", " ", "=", " ", "E01"}], ";", "\[IndentingNewLine]", 
          RowBox[{"E02L", "=", "E02"}], ";", "\[IndentingNewLine]", 
          RowBox[{"E03L", "=", "E03"}], ";", "\[IndentingNewLine]", 
          RowBox[{"E04L", "=", "E04"}], ";", "\[IndentingNewLine]", 
          RowBox[{"(*", "Solving", "*)"}], "\[IndentingNewLine]", 
          RowBox[{"MySolns", "=", 
           RowBox[{"FindRoot", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{"E1a", "+", "E1r"}], "==", 
                RowBox[{"E01", "+", "E03"}]}], ",", "\[IndentingNewLine]", 
               RowBox[{"E2t", "==", 
                RowBox[{"E02", "+", "E04"}]}], ",", "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{
                 RowBox[{"E01L", "*", 
                  RowBox[{"Exp", "[", 
                   RowBox[{
                    RowBox[{"-", "I"}], " ", "n", " ", "k1", " ", "L"}], 
                   "]"}]}], "+", 
                 RowBox[{"E03L", " ", 
                  RowBox[{"Exp", "[", 
                   RowBox[{"I", " ", "n", " ", "k1", " ", "L"}], "]"}]}]}], "==", 
                RowBox[{"E1t", " ", 
                 RowBox[{"Exp", "[", 
                  RowBox[{
                   RowBox[{"-", "I"}], " ", "k1", " ", "L"}], "]"}]}]}], ",", 
               "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{
                 RowBox[{"E02L", " ", 
                  RowBox[{"Exp", "[", 
                   RowBox[{"I", " ", "n", " ", "k2", " ", "L"}], "]"}]}], "+",
                  " ", 
                 RowBox[{"E04L", "*", 
                  RowBox[{"Exp", "[", 
                   RowBox[{
                    RowBox[{"-", "I"}], " ", "n", " ", "k2", " ", "L"}], 
                   "]"}]}]}], "==", 
                RowBox[{
                 RowBox[{"E2a", " ", 
                  RowBox[{"Exp", "[", 
                   RowBox[{"I", " ", "k2", " ", "L"}], "]"}]}], "+", 
                 RowBox[{"E2r", " ", 
                  RowBox[{"Exp", "[", 
                   RowBox[{
                    RowBox[{"-", "I"}], " ", "k2", " ", "L"}], "]"}]}]}]}], 
               ",", "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{
                 FractionBox["E1a", "n"], "-", 
                 FractionBox["E1r", "n"], "-", "E01", "+", "E03"}], "==", 
                RowBox[{
                 FractionBox[
                  RowBox[{"-", "tildealpha"}], 
                  RowBox[{"n", " ", "\[Pi]"}]], 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Theta]12", " ", "E04"}], "+", 
                   RowBox[{"\[Theta]34", " ", "E02"}]}], ")"}]}]}], ",", 
               "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{
                 FractionBox["E2t", "n"], "-", "E02", "+", "E04"}], "==", 
                RowBox[{
                 FractionBox[
                  RowBox[{"-", "tildealpha"}], 
                  RowBox[{"n", " ", "\[Pi]"}]], 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Theta]12c", " ", "E03"}], " ", "+", " ", 
                   RowBox[{"\[Theta]34c", " ", "E01"}]}], ")"}]}]}], ",", 
               "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{
                 RowBox[{"E01L", " ", 
                  RowBox[{"Exp", "[", 
                   RowBox[{
                    RowBox[{"-", "I"}], " ", "n", " ", "k1", " ", "L"}], 
                   "]"}]}], "-", 
                 RowBox[{"E03L", " ", 
                  RowBox[{"Exp", "[", 
                   RowBox[{"I", " ", "n", " ", "k1", " ", "L"}], "]"}]}], "-",
                  " ", 
                 RowBox[{
                  FractionBox["E1t", "n"], 
                  RowBox[{"Exp", "[", 
                   RowBox[{
                    RowBox[{"-", "I"}], " ", "k1", " ", "L"}], "]"}]}]}], "==", 
                RowBox[{
                 FractionBox["tildealpha", 
                  RowBox[{"n", " ", "\[Pi]"}]], 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Theta]34L", " ", 
                    RowBox[{"Exp", "[", 
                    RowBox[{"I", " ", "n", 
                    RowBox[{"(", " ", 
                    RowBox[{"Q", "+", "k2"}], ")"}], " ", "L"}], "]"}], " ", 
                    "E02L"}], "+", 
                   RowBox[{"\[Theta]12L", " ", 
                    RowBox[{"Exp", "[", 
                    RowBox[{
                    RowBox[{"-", " ", "I"}], " ", "n", 
                    RowBox[{"(", 
                    RowBox[{"Q", "+", "k2"}], ")"}], " ", "L"}], "]"}], " ", 
                    "E04L"}]}], ")"}]}]}], ",", "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{
                 RowBox[{"E02L", " ", 
                  RowBox[{"Exp", "[", 
                   RowBox[{"I", " ", "n", " ", "k2", " ", "L"}], "]"}]}], "-",
                  " ", 
                 RowBox[{"E04L", " ", 
                  RowBox[{"Exp", "[", 
                   RowBox[{
                    RowBox[{"-", "I"}], " ", "n", " ", "k2", " ", "L"}], 
                   "]"}]}], "-", 
                 RowBox[{
                  FractionBox["E2a", "n"], " ", 
                  RowBox[{"Exp", "[", 
                   RowBox[{"I", " ", "k2", " ", "L"}], "]"}]}], "+", 
                 RowBox[{
                  FractionBox["E2r", "n"], 
                  RowBox[{"Exp", "[", 
                   RowBox[{
                    RowBox[{"-", "I"}], " ", "k2", " ", "L"}], "]"}]}]}], "==", 
                RowBox[{
                 FractionBox["tildealpha", 
                  RowBox[{"n", " ", "\[Pi]"}]], 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Theta]34cL", " ", 
                    RowBox[{"Exp", "[", 
                    RowBox[{
                    RowBox[{"-", "I"}], " ", "n", 
                    RowBox[{"(", 
                    RowBox[{"Q", "+", "k1"}], ")"}], " ", "L"}], "]"}], 
                    "E01L"}], " ", "+", " ", 
                   RowBox[{"\[Theta]12cL", " ", 
                    RowBox[{"Exp", "[", 
                    RowBox[{"I", " ", "n", 
                    RowBox[{"(", " ", 
                    RowBox[{"Q", "+", "k1"}], ")"}], " ", "L"}], "]"}], " ", 
                    "E03L"}]}], ")"}]}]}]}], "\[IndentingNewLine]", "}"}], 
             ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"E1r", ",", "1"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"E1t", ",", "1"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"E2r", ",", "1"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"E2t", ",", "1"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"E01", ",", "1"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"E02", ",", "1"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"E03", ",", "1"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"E04", ",", "1"}], "}"}]}], "}"}]}], "]"}]}], ";"}], 
         "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{
           RowBox[{
            RowBox[{"Print", "[", "i", "]"}], ";", "\[IndentingNewLine]", 
            RowBox[{"Print", "[", "MySolns", "]"}], ";"}], ","}], "*)"}], ",",
          "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           RowBox[{"{", 
            RowBox[{
            "E01", ",", "E02", ",", "E03", ",", "E04", ",", "E1r", ",", "E1t",
              ",", "E2r", ",", "E2t"}], "}"}], "=", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
             "E01", ",", "E02", ",", "E03", ",", "E04", ",", "E1r", ",", 
              "E1t", ",", "E2r", ",", "E2t"}], "}"}], "/.", "MySolns"}]}], 
          ";", "\[IndentingNewLine]", 
          RowBox[{"\[Theta]12", "=", 
           RowBox[{
            FractionBox["tildealpha", "\[Pi]"], "n", 
            FractionBox["\[Epsilon]0", "J"], 
            FractionBox[
             RowBox[{"E01", "*", 
              RowBox[{"Conjugate", "[", "E02", "]"}]}], 
             RowBox[{
              SuperscriptBox["maxion", "2"], "-", 
              SuperscriptBox["\[CapitalOmega]", "2"], "+", 
              RowBox[{"I", " ", "\[Gamma]m", " ", "\[CapitalOmega]"}]}]]}]}], 
          ";", "\[IndentingNewLine]", 
          RowBox[{"\[Theta]12c", "=", 
           RowBox[{
            FractionBox["tildealpha", "\[Pi]"], "n", 
            FractionBox["\[Epsilon]0", "J"], 
            FractionBox[
             RowBox[{
              RowBox[{"Conjugate", "[", "E01", "]"}], "*", "E02"}], 
             RowBox[{
              SuperscriptBox["maxion", "2"], "-", 
              SuperscriptBox["\[CapitalOmega]", "2"], "-", 
              RowBox[{"I", " ", "\[Gamma]m", " ", "\[CapitalOmega]"}]}]]}]}], 
          ";", "\[IndentingNewLine]", 
          RowBox[{"\[Theta]34", "=", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["tildealpha", "\[Pi]"]}], "n", 
            FractionBox["\[Epsilon]0", "J"], 
            FractionBox[
             RowBox[{"E03", "*", 
              RowBox[{"Conjugate", "[", "E04", "]"}]}], 
             RowBox[{
              SuperscriptBox["maxion", "2"], "-", 
              SuperscriptBox["\[CapitalOmega]", "2"], "+", 
              RowBox[{"I", " ", "\[Gamma]m", " ", "\[CapitalOmega]"}]}]]}]}], 
          ";", "\[IndentingNewLine]", 
          RowBox[{"\[Theta]34c", "=", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["tildealpha", "\[Pi]"]}], "n", 
            FractionBox["\[Epsilon]0", "J"], 
            FractionBox[
             RowBox[{
              RowBox[{"Conjugate", "[", "E03", "]"}], "*", "E04"}], 
             RowBox[{
              SuperscriptBox["maxion", "2"], "-", 
              SuperscriptBox["\[CapitalOmega]", "2"], "-", 
              RowBox[{"I", " ", "\[Gamma]m", " ", "\[CapitalOmega]"}]}]]}]}], 
          ";", "\[IndentingNewLine]", 
          RowBox[{"(*", 
           RowBox[{
            RowBox[{"Electric", " ", "field", " ", "at", " ", "z"}], "=", 
            "L"}], "*)"}], "\[IndentingNewLine]", 
          RowBox[{"\[Delta]10", "=", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "I"}], " ", 
             RowBox[{"Log", "[", 
              FractionBox["E01", 
               RowBox[{"Abs", "[", "E01", "]"}]], "]"}]}], "-", 
            RowBox[{
             FractionBox["1", 
              RowBox[{"2", 
               RowBox[{"(", 
                RowBox[{"1", "+", "\[Chi]e"}], ")"}]}]], 
             FractionBox[
              RowBox[{
               SuperscriptBox["maxion", "2"], "-", 
               SuperscriptBox["\[CapitalOmega]", "2"]}], 
              RowBox[{"\[Gamma]m", "*", "\[CapitalOmega]"}]], 
             RowBox[{"Log", "[", 
              FractionBox[
               RowBox[{
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"Abs", "[", "E02", "]"}], 
                  RowBox[{"2", " "}]], 
                 RowBox[{"Exp", "[", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{"tildeg12", "[", 
                    RowBox[{"0", ",", "0"}], "]"}]}], "*", "L", "*", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"\[Xi]12", "[", 
                    RowBox[{"0", ",", "0"}], "]"}], 
                    SuperscriptBox[
                    RowBox[{"Abs", "[", "E01", "]"}], "2"]}], "-", 
                    SuperscriptBox[
                    RowBox[{"Abs", "[", "E02", "]"}], "2"]}], ")"}]}], 
                  "]"}]}], "-", 
                RowBox[{
                 RowBox[{"\[Xi]12", "[", 
                  RowBox[{"0", ",", "0"}], "]"}], 
                 SuperscriptBox[
                  RowBox[{"Abs", "[", "E01", "]"}], "2"]}]}], 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"Abs", "[", "E02", "]"}], "2"], "-", 
                RowBox[{
                 RowBox[{"\[Xi]12", "[", 
                  RowBox[{"0", ",", "0"}], "]"}], 
                 SuperscriptBox[
                  RowBox[{"Abs", "[", "E01", "]"}], "2"]}]}]], "]"}]}]}]}], 
          ";", "\[IndentingNewLine]", 
          RowBox[{"\[Delta]20", "=", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "I"}], " ", 
             RowBox[{"Log", "[", 
              FractionBox["E02", 
               RowBox[{"Abs", "[", "E02", "]"}]], "]"}]}], "+", 
            RowBox[{
             FractionBox["1", 
              RowBox[{"2", 
               RowBox[{"(", 
                RowBox[{"1", "+", "\[Chi]e"}], ")"}]}]], 
             FractionBox[
              RowBox[{
               SuperscriptBox["maxion", "2"], "-", 
               SuperscriptBox["\[CapitalOmega]", "2"]}], 
              RowBox[{"\[Gamma]m", "*", "\[CapitalOmega]"}]], 
             RowBox[{"Log", "[", 
              FractionBox[
               RowBox[{
                SuperscriptBox[
                 RowBox[{"Abs", "[", "E02", "]"}], "2"], "-", 
                RowBox[{
                 RowBox[{"\[Xi]12", "[", 
                  RowBox[{"0", ",", "0"}], "]"}], 
                 SuperscriptBox[
                  RowBox[{"Abs", "[", "E01", "]"}], "2"], 
                 RowBox[{"Exp", "[", 
                  RowBox[{
                   RowBox[{"tildeg12", "[", 
                    RowBox[{"0", ",", "0"}], "]"}], "*", "L", "*", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"\[Xi]12", "[", 
                    RowBox[{"0", ",", "0"}], "]"}], 
                    SuperscriptBox[
                    RowBox[{"Abs", "[", "E01", "]"}], "2"]}], "-", 
                    SuperscriptBox[
                    RowBox[{"Abs", "[", "E02", "]"}], "2"]}], ")"}]}], 
                  "]"}]}]}], 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"Abs", "[", "E02", "]"}], "2"], "-", 
                RowBox[{
                 RowBox[{"\[Xi]12", "[", 
                  RowBox[{"0", ",", "0"}], "]"}], 
                 SuperscriptBox[
                  RowBox[{"Abs", "[", "E01", "]"}], "2"]}]}]], "]"}]}]}]}], 
          ";", "\[IndentingNewLine]", 
          RowBox[{"\[Delta]30", "=", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Abs", "[", "E03", "]"}], "<", 
               SuperscriptBox["10", 
                RowBox[{"-", "15"}]]}], "&&", 
              RowBox[{
               RowBox[{"Abs", "[", "E04", "]"}], "<", 
               SuperscriptBox["10", 
                RowBox[{"-", "15"}]]}]}], ",", "0", ",", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "I"}], " ", 
               RowBox[{"Log", "[", 
                FractionBox["E03", 
                 RowBox[{"Abs", "[", "E03", "]"}]], "]"}]}], "+", 
              RowBox[{
               FractionBox["1", 
                RowBox[{"2", 
                 RowBox[{"(", 
                  RowBox[{"1", "+", "\[Chi]e"}], ")"}]}]], 
               FractionBox[
                RowBox[{
                 SuperscriptBox["maxion", "2"], "-", 
                 SuperscriptBox["\[CapitalOmega]", "2"]}], 
                RowBox[{"\[Gamma]m", "*", "\[CapitalOmega]"}]], 
               RowBox[{"Log", "[", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"Abs", "[", "E04", "]"}], "2"], "-", 
                  RowBox[{
                   RowBox[{"\[Xi]34", "[", 
                    RowBox[{"0", ",", "0"}], "]"}], 
                   SuperscriptBox[
                    RowBox[{"Abs", "[", "E03", "]"}], "2"]}]}], 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox[
                    RowBox[{"Abs", "[", "E04", "]"}], "2"], 
                   RowBox[{"Exp", "[", 
                    RowBox[{
                    RowBox[{"tildeg34", "[", 
                    RowBox[{"0", ",", "0"}], "]"}], "*", "L", "*", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"\[Xi]34", "[", 
                    RowBox[{"0", ",", "0"}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"Abs", "[", "E03", "]"}], "2"]}], "-", 
                    SuperscriptBox[
                    RowBox[{"Abs", "[", "E04", "]"}], "2"]}], ")"}]}], 
                    "]"}]}], "-", 
                  RowBox[{
                   RowBox[{"\[Xi]34", "[", 
                    RowBox[{"0", ",", "0"}], "]"}], 
                   SuperscriptBox[
                    RowBox[{"Abs", "[", "E03", "]"}], "2"]}]}]], "]"}]}]}]}], 
            "]"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"\[Delta]40", "=", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Abs", "[", "E03", "]"}], "<", 
               SuperscriptBox["10", 
                RowBox[{"-", "15"}]]}], "&&", 
              RowBox[{
               RowBox[{"Abs", "[", "E04", "]"}], "<", 
               SuperscriptBox["10", 
                RowBox[{"-", "15"}]]}]}], ",", "0", ",", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "I"}], " ", 
               RowBox[{"Log", "[", 
                FractionBox["E04", 
                 RowBox[{"Abs", "[", "E04", "]"}]], "]"}]}], "+", 
              RowBox[{
               FractionBox["1", 
                RowBox[{"2", 
                 RowBox[{"(", 
                  RowBox[{"1", "+", "\[Chi]e"}], ")"}]}]], 
               FractionBox[
                RowBox[{
                 SuperscriptBox["maxion", "2"], "-", 
                 SuperscriptBox["\[CapitalOmega]", "2"]}], 
                RowBox[{"\[Gamma]m", "*", "\[CapitalOmega]"}]], 
               RowBox[{"Log", "[", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"Abs", "[", "E04", "]"}], "2"], "-", 
                  RowBox[{
                   RowBox[{"\[Xi]34", "[", 
                    RowBox[{"0", ",", "0"}], "]"}], 
                   SuperscriptBox[
                    RowBox[{"Abs", "[", "E03", "]"}], "2"], 
                   RowBox[{"Exp", "[", 
                    RowBox[{
                    RowBox[{"-", 
                    RowBox[{"tildeg34", "[", 
                    RowBox[{"0", ",", "0"}], "]"}]}], "*", "L", "*", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"\[Xi]34", "[", 
                    RowBox[{"0", ",", "0"}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"Abs", "[", "E03", "]"}], "2"]}], "-", 
                    SuperscriptBox[
                    RowBox[{"Abs", "[", "E04", "]"}], "2"]}], ")"}]}], 
                    "]"}]}]}], 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"Abs", "[", "E04", "]"}], "2"], "-", 
                  RowBox[{
                   RowBox[{"\[Xi]34", "[", 
                    RowBox[{"0", ",", "0"}], "]"}], 
                   SuperscriptBox[
                    RowBox[{"Abs", "[", "E03", "]"}], "2"]}]}]], "]"}]}]}]}], 
            "]"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"E01L", "=", 
           RowBox[{
            RowBox[{"Sqrt", "[", 
             RowBox[{"E01sq", "[", 
              RowBox[{"L", ",", "0", ",", "0"}], "]"}], "]"}], "*", 
            RowBox[{"Exp", "[", 
             RowBox[{"I", " ", "\[Delta]10"}], "]"}]}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"E02L", "=", 
           RowBox[{
            RowBox[{"Sqrt", "[", 
             RowBox[{"E02sq", "[", 
              RowBox[{"L", ",", "0", ",", "0"}], "]"}], "]"}], "*", 
            RowBox[{"Exp", "[", 
             RowBox[{"I", " ", "\[Delta]20"}], "]"}]}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"(*", 
           RowBox[{
            RowBox[{"E03L", "=", 
             RowBox[{
              RowBox[{"Sqrt", "[", 
               RowBox[{"E03sq", "[", 
                RowBox[{"L", ",", "\[Phi]3", ",", "\[Phi]4"}], "]"}], "]"}], 
              "*", 
              RowBox[{"Exp", "[", 
               RowBox[{"I", " ", "\[Delta]30"}], "]"}]}]}], ";"}], "*)"}], 
          "\[IndentingNewLine]", 
          RowBox[{"E03L", "=", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"E03", "==", "0"}], "&&", 
              RowBox[{"E04", "==", "0"}]}], ",", "0", ",", 
             RowBox[{
              RowBox[{"Sqrt", "[", 
               RowBox[{"E03sq", "[", 
                RowBox[{"L", ",", "0", ",", "0"}], "]"}], "]"}], "*", 
              RowBox[{"Exp", "[", 
               RowBox[{"I", " ", "\[Delta]30"}], "]"}]}]}], "]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"(*", 
           RowBox[{
            RowBox[{"E04L", "=", 
             RowBox[{
              RowBox[{"Sqrt", "[", 
               RowBox[{"E04sq", "[", 
                RowBox[{"L", ",", "\[Phi]3", ",", "\[Phi]4"}], "]"}], "]"}], 
              "*", 
              RowBox[{"Exp", "[", 
               RowBox[{"I", " ", "\[Delta]40"}], "]"}]}]}], ";"}], "*)"}], 
          "\[IndentingNewLine]", 
          RowBox[{"E04L", "=", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"E03", "==", "0"}], "&&", 
              RowBox[{"E04", "==", "0"}]}], ",", "0", ",", 
             RowBox[{
              RowBox[{"Sqrt", "[", 
               RowBox[{"E04sq", "[", 
                RowBox[{"L", ",", "0", ",", "0"}], "]"}], "]"}], "*", 
              RowBox[{"Exp", "[", 
               RowBox[{"I", " ", "\[Delta]40"}], "]"}]}]}], "]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"(*", 
           RowBox[{
            RowBox[{"Axion", " ", "at", " ", "z"}], " ", "=", " ", "L"}], 
           "*)"}], "\[IndentingNewLine]", 
          RowBox[{"\[Theta]12L", "=", 
           RowBox[{
            FractionBox["tildealpha", "\[Pi]"], "n", 
            FractionBox["\[Epsilon]0", "J"], 
            FractionBox[
             RowBox[{"E01L", "*", 
              RowBox[{"Conjugate", "[", "E02L", "]"}]}], 
             RowBox[{
              SuperscriptBox["maxion", "2"], "-", 
              SuperscriptBox["\[CapitalOmega]", "2"], "+", 
              RowBox[{"I", " ", "\[Gamma]m", " ", "\[CapitalOmega]"}]}]]}]}], 
          ";", "\[IndentingNewLine]", 
          RowBox[{"\[Theta]12cL", "=", 
           RowBox[{
            FractionBox["tildealpha", "\[Pi]"], "n", 
            FractionBox["\[Epsilon]0", "J"], 
            FractionBox[
             RowBox[{
              RowBox[{"Conjugate", "[", "E01L", "]"}], "*", "E02L"}], 
             RowBox[{
              SuperscriptBox["maxion", "2"], "-", 
              SuperscriptBox["\[CapitalOmega]", "2"], "-", 
              RowBox[{"I", " ", "\[Gamma]m", " ", "\[CapitalOmega]"}]}]]}]}], 
          ";", "\[IndentingNewLine]", 
          RowBox[{"\[Theta]34L", "=", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["tildealpha", "\[Pi]"]}], "n", 
            FractionBox["\[Epsilon]0", "J"], 
            FractionBox[
             RowBox[{"E03L", "*", 
              RowBox[{"Conjugate", "[", "E04L", "]"}]}], 
             RowBox[{
              SuperscriptBox["maxion", "2"], "-", 
              SuperscriptBox["\[CapitalOmega]", "2"], "+", 
              RowBox[{"I", " ", "\[Gamma]m", " ", "\[CapitalOmega]"}]}]]}]}], 
          ";", "\[IndentingNewLine]", 
          RowBox[{"\[Theta]34cL", "=", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["tildealpha", "\[Pi]"]}], "n", 
            FractionBox["\[Epsilon]0", "J"], 
            FractionBox[
             RowBox[{
              RowBox[{"Conjugate", "[", "E03L", "]"}], "*", "E04L"}], 
             RowBox[{
              SuperscriptBox["maxion", "2"], "-", 
              SuperscriptBox["\[CapitalOmega]", "2"], "-", 
              RowBox[{"I", " ", "\[Gamma]m", " ", "\[CapitalOmega]"}]}]]}]}], 
          ";", "\[IndentingNewLine]", 
          RowBox[{"Clear", "[", 
           RowBox[{
           "E01", ",", "E02", ",", "E03", ",", "E04", ",", "E1r", ",", "E1t", 
            ",", "E2r", ",", "E2t", ",", "E01L", ",", "E02L", ",", "E03L", 
            ",", "E04L", ",", "\[Delta]10", ",", "\[Delta]20", ",", 
            "\[Delta]30", ",", "\[Delta]40"}], "]"}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"\[Delta]10", "=", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "I"}], " ", 
             RowBox[{"Log", "[", 
              FractionBox["E01", 
               RowBox[{"Abs", "[", "E01", "]"}]], "]"}]}], "-", 
            RowBox[{
             FractionBox["1", 
              RowBox[{"2", 
               RowBox[{"(", 
                RowBox[{"1", "+", "\[Chi]e"}], ")"}]}]], 
             FractionBox[
              RowBox[{
               SuperscriptBox["maxion", "2"], "-", 
               SuperscriptBox["\[CapitalOmega]", "2"]}], 
              RowBox[{"\[Gamma]m", "*", "\[CapitalOmega]"}]], 
             RowBox[{"Log", "[", 
              FractionBox[
               RowBox[{
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"Abs", "[", "E02", "]"}], 
                  RowBox[{"2", " "}]], 
                 RowBox[{"Exp", "[", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{"tildeg12", "[", 
                    RowBox[{"0", ",", "0"}], "]"}]}], "*", "L", "*", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"\[Xi]12", "[", 
                    RowBox[{"0", ",", "0"}], "]"}], 
                    SuperscriptBox[
                    RowBox[{"Abs", "[", "E01", "]"}], "2"]}], "-", 
                    SuperscriptBox[
                    RowBox[{"Abs", "[", "E02", "]"}], "2"]}], ")"}]}], 
                  "]"}]}], "-", 
                RowBox[{
                 RowBox[{"\[Xi]12", "[", 
                  RowBox[{"0", ",", "0"}], "]"}], 
                 SuperscriptBox[
                  RowBox[{"Abs", "[", "E01", "]"}], "2"]}]}], 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"Abs", "[", "E02", "]"}], "2"], "-", 
                RowBox[{
                 RowBox[{"\[Xi]12", "[", 
                  RowBox[{"0", ",", "0"}], "]"}], 
                 SuperscriptBox[
                  RowBox[{"Abs", "[", "E01", "]"}], "2"]}]}]], "]"}]}]}]}], 
          ";", "\[IndentingNewLine]", 
          RowBox[{"\[Delta]20", "=", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "I"}], " ", 
             RowBox[{"Log", "[", 
              FractionBox["E02", 
               RowBox[{"Abs", "[", "E02", "]"}]], "]"}]}], "+", 
            RowBox[{
             FractionBox["1", 
              RowBox[{"2", 
               RowBox[{"(", 
                RowBox[{"1", "+", "\[Chi]e"}], ")"}]}]], 
             FractionBox[
              RowBox[{
               SuperscriptBox["maxion", "2"], "-", 
               SuperscriptBox["\[CapitalOmega]", "2"]}], 
              RowBox[{"\[Gamma]m", "*", "\[CapitalOmega]"}]], 
             RowBox[{"Log", "[", 
              FractionBox[
               RowBox[{
                SuperscriptBox[
                 RowBox[{"Abs", "[", "E02", "]"}], "2"], "-", 
                RowBox[{
                 RowBox[{"\[Xi]12", "[", 
                  RowBox[{"0", ",", "0"}], "]"}], 
                 SuperscriptBox[
                  RowBox[{"Abs", "[", "E01", "]"}], "2"], 
                 RowBox[{"Exp", "[", 
                  RowBox[{
                   RowBox[{"tildeg12", "[", 
                    RowBox[{"0", ",", "0"}], "]"}], "*", "L", "*", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"\[Xi]12", "[", 
                    RowBox[{"0", ",", "0"}], "]"}], 
                    SuperscriptBox[
                    RowBox[{"Abs", "[", "E01", "]"}], "2"]}], "-", 
                    SuperscriptBox[
                    RowBox[{"Abs", "[", "E02", "]"}], "2"]}], ")"}]}], 
                  "]"}]}]}], 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"Abs", "[", "E02", "]"}], "2"], "-", 
                RowBox[{
                 RowBox[{"\[Xi]12", "[", 
                  RowBox[{"0", ",", "0"}], "]"}], 
                 SuperscriptBox[
                  RowBox[{"Abs", "[", "E01", "]"}], "2"]}]}]], "]"}]}]}]}], 
          ";", "\[IndentingNewLine]", 
          RowBox[{"\[Delta]30", "=", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "I"}], " ", 
             RowBox[{"Log", "[", 
              FractionBox["E03", 
               RowBox[{"Abs", "[", "E03", "]"}]], "]"}]}], "+", 
            RowBox[{
             FractionBox["1", 
              RowBox[{"2", 
               RowBox[{"(", 
                RowBox[{"1", "+", "\[Chi]e"}], ")"}]}]], 
             FractionBox[
              RowBox[{
               SuperscriptBox["maxion", "2"], "-", 
               SuperscriptBox["\[CapitalOmega]", "2"]}], 
              RowBox[{"\[Gamma]m", "*", "\[CapitalOmega]"}]], 
             RowBox[{"Log", "[", 
              FractionBox[
               RowBox[{
                SuperscriptBox[
                 RowBox[{"Abs", "[", "E04", "]"}], "2"], "-", 
                RowBox[{
                 RowBox[{"\[Xi]34", "[", 
                  RowBox[{"0", ",", "0"}], "]"}], 
                 SuperscriptBox[
                  RowBox[{"Abs", "[", "E03", "]"}], "2"]}]}], 
               RowBox[{
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"Abs", "[", "E04", "]"}], "2"], 
                 RowBox[{"Exp", "[", 
                  RowBox[{
                   RowBox[{"tildeg34", "[", 
                    RowBox[{"0", ",", "0"}], "]"}], "*", "L", "*", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"\[Xi]34", "[", 
                    RowBox[{"0", ",", "0"}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"Abs", "[", "E03", "]"}], "2"]}], "-", 
                    SuperscriptBox[
                    RowBox[{"Abs", "[", "E04", "]"}], "2"]}], ")"}]}], 
                  "]"}]}], "-", 
                RowBox[{
                 RowBox[{"\[Xi]34", "[", 
                  RowBox[{"0", ",", "0"}], "]"}], 
                 SuperscriptBox[
                  RowBox[{"Abs", "[", "E03", "]"}], "2"]}]}]], "]"}]}]}]}], 
          ";", "\[IndentingNewLine]", 
          RowBox[{"\[Delta]40", "=", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "I"}], " ", 
             RowBox[{"Log", "[", 
              FractionBox["E04", 
               RowBox[{"Abs", "[", "E04", "]"}]], "]"}]}], "+", 
            RowBox[{
             FractionBox["1", 
              RowBox[{"2", 
               RowBox[{"(", 
                RowBox[{"1", "+", "\[Chi]e"}], ")"}]}]], 
             FractionBox[
              RowBox[{
               SuperscriptBox["maxion", "2"], "-", 
               SuperscriptBox["\[CapitalOmega]", "2"]}], 
              RowBox[{"\[Gamma]m", "*", "\[CapitalOmega]"}]], 
             RowBox[{"Log", "[", 
              FractionBox[
               RowBox[{
                SuperscriptBox[
                 RowBox[{"Abs", "[", "E04", "]"}], "2"], "-", 
                RowBox[{
                 RowBox[{"\[Xi]34", "[", 
                  RowBox[{"0", ",", "0"}], "]"}], 
                 SuperscriptBox[
                  RowBox[{"Abs", "[", "E03", "]"}], "2"], 
                 RowBox[{"Exp", "[", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{"tildeg34", "[", 
                    RowBox[{"0", ",", "0"}], "]"}]}], "*", "L", "*", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"\[Xi]34", "[", 
                    RowBox[{"0", ",", "0"}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"Abs", "[", "E03", "]"}], "2"]}], "-", 
                    SuperscriptBox[
                    RowBox[{"Abs", "[", "E04", "]"}], "2"]}], ")"}]}], 
                  "]"}]}]}], 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"Abs", "[", "E04", "]"}], "2"], "-", 
                RowBox[{
                 RowBox[{"\[Xi]34", "[", 
                  RowBox[{"0", ",", "0"}], "]"}], 
                 SuperscriptBox[
                  RowBox[{"Abs", "[", "E03", "]"}], "2"]}]}]], "]"}]}]}]}], 
          ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
          RowBox[{"E01L", "=", 
           RowBox[{
            RowBox[{"Sqrt", "[", 
             RowBox[{"E01sq", "[", 
              RowBox[{"L", ",", "0", ",", "0"}], "]"}], "]"}], "*", 
            RowBox[{"Exp", "[", 
             RowBox[{"I", " ", "\[Delta]10"}], "]"}]}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"E02L", "=", 
           RowBox[{
            RowBox[{"Sqrt", "[", 
             RowBox[{"E02sq", "[", 
              RowBox[{"L", ",", "0", ",", "0"}], "]"}], "]"}], "*", 
            RowBox[{"Exp", "[", 
             RowBox[{"I", " ", "\[Delta]20"}], "]"}]}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"E03L", "=", 
           RowBox[{
            RowBox[{"Sqrt", "[", 
             RowBox[{"E03sq", "[", 
              RowBox[{"L", ",", "0", ",", "0"}], "]"}], "]"}], "*", 
            RowBox[{"Exp", "[", 
             RowBox[{"I", " ", "\[Delta]30"}], "]"}]}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"E04L", "=", 
           RowBox[{
            RowBox[{"Sqrt", "[", 
             RowBox[{"E04sq", "[", 
              RowBox[{"L", ",", "0", ",", "0"}], "]"}], "]"}], "*", 
            RowBox[{"Exp", "[", 
             RowBox[{"I", " ", "\[Delta]40"}], "]"}]}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"MySolns", "=", 
           RowBox[{"FindRoot", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{"E1a", "+", "E1r"}], "==", 
                RowBox[{"E01", "+", "E03"}]}], ",", "\[IndentingNewLine]", 
               RowBox[{"E2t", "==", 
                RowBox[{"E02", "+", "E04"}]}], ",", "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{
                 RowBox[{"E01L", "*", 
                  RowBox[{"Exp", "[", 
                   RowBox[{
                    RowBox[{"-", "I"}], " ", "n", " ", "k1", " ", "L"}], 
                   "]"}]}], "+", 
                 RowBox[{"E03L", " ", 
                  RowBox[{"Exp", "[", 
                   RowBox[{"I", " ", "n", " ", "k1", " ", "L"}], "]"}]}]}], "==", 
                RowBox[{"E1t", " ", 
                 RowBox[{"Exp", "[", 
                  RowBox[{
                   RowBox[{"-", "I"}], " ", "k1", " ", "L"}], "]"}]}]}], ",", 
               "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{
                 RowBox[{"E02L", " ", 
                  RowBox[{"Exp", "[", 
                   RowBox[{"I", " ", "n", " ", "k2", " ", "L"}], "]"}]}], "+",
                  " ", 
                 RowBox[{"E04L", "*", 
                  RowBox[{"Exp", "[", 
                   RowBox[{
                    RowBox[{"-", "I"}], " ", "n", " ", "k2", " ", "L"}], 
                   "]"}]}]}], "==", 
                RowBox[{
                 RowBox[{"E2a", " ", 
                  RowBox[{"Exp", "[", 
                   RowBox[{"I", " ", "k2", " ", "L"}], "]"}]}], "+", 
                 RowBox[{"E2r", " ", 
                  RowBox[{"Exp", "[", 
                   RowBox[{
                    RowBox[{"-", "I"}], " ", "k2", " ", "L"}], "]"}]}]}]}], 
               ",", "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{
                 FractionBox["E1a", "n"], "-", 
                 FractionBox["E1r", "n"], "-", "E01", "+", "E03"}], "==", 
                RowBox[{
                 FractionBox[
                  RowBox[{"-", "tildealpha"}], 
                  RowBox[{"n", " ", "\[Pi]"}]], 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Theta]12", " ", "E04"}], "+", 
                   RowBox[{"\[Theta]34", " ", "E02"}]}], ")"}]}]}], ",", 
               "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{
                 FractionBox["E2t", "n"], "-", "E02", "+", "E04"}], "==", 
                RowBox[{
                 FractionBox[
                  RowBox[{"-", "tildealpha"}], 
                  RowBox[{"n", " ", "\[Pi]"}]], 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Theta]12c", " ", "E03"}], " ", "+", " ", 
                   RowBox[{"\[Theta]34c", " ", "E01"}]}], ")"}]}]}], ",", 
               "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{
                 RowBox[{"E01L", " ", 
                  RowBox[{"Exp", "[", 
                   RowBox[{
                    RowBox[{"-", "I"}], " ", "n", " ", "k1", " ", "L"}], 
                   "]"}]}], "-", 
                 RowBox[{"E03L", " ", 
                  RowBox[{"Exp", "[", 
                   RowBox[{"I", " ", "n", " ", "k1", " ", "L"}], "]"}]}], "-",
                  " ", 
                 RowBox[{
                  FractionBox["E1t", "n"], 
                  RowBox[{"Exp", "[", 
                   RowBox[{
                    RowBox[{"-", "I"}], " ", "k1", " ", "L"}], "]"}]}]}], "==", 
                RowBox[{
                 FractionBox["tildealpha", 
                  RowBox[{"n", " ", "\[Pi]"}]], 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Theta]34L", " ", 
                    RowBox[{"Exp", "[", 
                    RowBox[{"I", " ", "n", 
                    RowBox[{"(", " ", 
                    RowBox[{"Q", "+", "k2"}], ")"}], " ", "L"}], "]"}], " ", 
                    "E02L"}], "+", 
                   RowBox[{"\[Theta]12L", " ", 
                    RowBox[{"Exp", "[", 
                    RowBox[{
                    RowBox[{"-", " ", "I"}], " ", "n", 
                    RowBox[{"(", 
                    RowBox[{"Q", "+", "k2"}], ")"}], " ", "L"}], "]"}], " ", 
                    "E04L"}]}], ")"}]}]}], ",", "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{
                 RowBox[{"E02L", " ", 
                  RowBox[{"Exp", "[", 
                   RowBox[{"I", " ", "n", " ", "k2", " ", "L"}], "]"}]}], "-",
                  " ", 
                 RowBox[{"E04L", " ", 
                  RowBox[{"Exp", "[", 
                   RowBox[{
                    RowBox[{"-", "I"}], " ", "n", " ", "k2", " ", "L"}], 
                   "]"}]}], "-", 
                 RowBox[{
                  FractionBox["E2a", "n"], " ", 
                  RowBox[{"Exp", "[", 
                   RowBox[{"I", " ", "k2", " ", "L"}], "]"}]}], "+", 
                 RowBox[{
                  FractionBox["E2r", "n"], 
                  RowBox[{"Exp", "[", 
                   RowBox[{
                    RowBox[{"-", "I"}], " ", "k2", " ", "L"}], "]"}]}]}], "==", 
                RowBox[{
                 FractionBox["tildealpha", 
                  RowBox[{"n", " ", "\[Pi]"}]], 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Theta]34cL", " ", 
                    RowBox[{"Exp", "[", 
                    RowBox[{
                    RowBox[{"-", "I"}], " ", "n", 
                    RowBox[{"(", 
                    RowBox[{"Q", "+", "k1"}], ")"}], " ", "L"}], "]"}], 
                    "E01L"}], " ", "+", " ", 
                   RowBox[{"\[Theta]12cL", " ", 
                    RowBox[{"Exp", "[", 
                    RowBox[{"I", " ", "n", 
                    RowBox[{"(", " ", 
                    RowBox[{"Q", "+", "k1"}], ")"}], " ", "L"}], "]"}], " ", 
                    "E03L"}]}], ")"}]}]}]}], "\[IndentingNewLine]", "}"}], 
             ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"E1r", ",", "1"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"E1t", ",", "1.1"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"E2r", ",", "1.1"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"E2t", ",", "1.3"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"E01", ",", "1.4"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"E02", ",", "1.5"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"E03", ",", "1.6"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"E04", ",", "1.7"}], "}"}]}], "}"}]}], "]"}]}], 
          ";"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", 
      "]"}], "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{
       "Taking", " ", "Last", " ", "solutions", " ", "and", " ", "printing", 
        " ", "out", " ", "some", " ", "information"}], ",", " ", 
       RowBox[{
        RowBox[{
        "which", " ", "requires", " ", "the", " ", "fields", " ", "at", " ", 
         "z"}], " ", "=", " ", "L"}]}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "E01", ",", "E02", ",", "E03", ",", "E04", ",", "E1r", ",", "E1t", ",",
         "E2r", ",", "E2t"}], "}"}], "=", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "E01", ",", "E02", ",", "E03", ",", "E04", ",", "E1r", ",", "E1t", 
         ",", "E2r", ",", "E2t"}], "}"}], "/.", "MySolns"}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{"Electric", " ", "field", " ", "at", " ", "z"}], "=", "L"}], 
     "*)"}], "\[IndentingNewLine]", 
    RowBox[{"\[Delta]10", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "I"}], " ", 
       RowBox[{"Log", "[", 
        FractionBox["E01", 
         RowBox[{"Abs", "[", "E01", "]"}]], "]"}]}], "-", 
      RowBox[{
       FractionBox["1", 
        RowBox[{"2", 
         RowBox[{"(", 
          RowBox[{"1", "+", "\[Chi]e"}], ")"}]}]], 
       FractionBox[
        RowBox[{
         SuperscriptBox["maxion", "2"], "-", 
         SuperscriptBox["\[CapitalOmega]", "2"]}], 
        RowBox[{"\[Gamma]m", "*", "\[CapitalOmega]"}]], 
       RowBox[{"Log", "[", 
        FractionBox[
         RowBox[{
          RowBox[{
           SuperscriptBox[
            RowBox[{"Abs", "[", "E02", "]"}], 
            RowBox[{"2", " "}]], 
           RowBox[{"Exp", "[", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{"tildeg12", "[", 
               RowBox[{"0", ",", "0"}], "]"}]}], "*", "L", "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"\[Xi]12", "[", 
                 RowBox[{"0", ",", "0"}], "]"}], 
                SuperscriptBox[
                 RowBox[{"Abs", "[", "E01", "]"}], "2"]}], "-", 
               SuperscriptBox[
                RowBox[{"Abs", "[", "E02", "]"}], "2"]}], ")"}]}], "]"}]}], 
          "-", 
          RowBox[{
           RowBox[{"\[Xi]12", "[", 
            RowBox[{"0", ",", "0"}], "]"}], 
           SuperscriptBox[
            RowBox[{"Abs", "[", "E01", "]"}], "2"]}]}], 
         RowBox[{
          SuperscriptBox[
           RowBox[{"Abs", "[", "E02", "]"}], "2"], "-", 
          RowBox[{
           RowBox[{"\[Xi]12", "[", 
            RowBox[{"0", ",", "0"}], "]"}], 
           SuperscriptBox[
            RowBox[{"Abs", "[", "E01", "]"}], "2"]}]}]], "]"}]}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"\[Delta]20", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "I"}], " ", 
       RowBox[{"Log", "[", 
        FractionBox["E02", 
         RowBox[{"Abs", "[", "E02", "]"}]], "]"}]}], "+", 
      RowBox[{
       FractionBox["1", 
        RowBox[{"2", 
         RowBox[{"(", 
          RowBox[{"1", "+", "\[Chi]e"}], ")"}]}]], 
       FractionBox[
        RowBox[{
         SuperscriptBox["maxion", "2"], "-", 
         SuperscriptBox["\[CapitalOmega]", "2"]}], 
        RowBox[{"\[Gamma]m", "*", "\[CapitalOmega]"}]], 
       RowBox[{"Log", "[", 
        FractionBox[
         RowBox[{
          SuperscriptBox[
           RowBox[{"Abs", "[", "E02", "]"}], "2"], "-", 
          RowBox[{
           RowBox[{"\[Xi]12", "[", 
            RowBox[{"0", ",", "0"}], "]"}], 
           SuperscriptBox[
            RowBox[{"Abs", "[", "E01", "]"}], "2"], 
           RowBox[{"Exp", "[", 
            RowBox[{
             RowBox[{"tildeg12", "[", 
              RowBox[{"0", ",", "0"}], "]"}], "*", "L", "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"\[Xi]12", "[", 
                 RowBox[{"0", ",", "0"}], "]"}], 
                SuperscriptBox[
                 RowBox[{"Abs", "[", "E01", "]"}], "2"]}], "-", 
               SuperscriptBox[
                RowBox[{"Abs", "[", "E02", "]"}], "2"]}], ")"}]}], "]"}]}]}], 
         RowBox[{
          SuperscriptBox[
           RowBox[{"Abs", "[", "E02", "]"}], "2"], "-", 
          RowBox[{
           RowBox[{"\[Xi]12", "[", 
            RowBox[{"0", ",", "0"}], "]"}], 
           SuperscriptBox[
            RowBox[{"Abs", "[", "E01", "]"}], "2"]}]}]], "]"}]}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"\[Delta]30", "=", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Abs", "[", "E03", "]"}], "<", 
         SuperscriptBox["10", 
          RowBox[{"-", "15"}]]}], "&&", 
        RowBox[{
         RowBox[{"Abs", "[", "E04", "]"}], "<", 
         SuperscriptBox["10", 
          RowBox[{"-", "15"}]]}]}], ",", "0", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "I"}], " ", 
         RowBox[{"Log", "[", 
          FractionBox["E03", 
           RowBox[{"Abs", "[", "E03", "]"}]], "]"}]}], "+", 
        RowBox[{
         FractionBox["1", 
          RowBox[{"2", 
           RowBox[{"(", 
            RowBox[{"1", "+", "\[Chi]e"}], ")"}]}]], 
         FractionBox[
          RowBox[{
           SuperscriptBox["maxion", "2"], "-", 
           SuperscriptBox["\[CapitalOmega]", "2"]}], 
          RowBox[{"\[Gamma]m", "*", "\[CapitalOmega]"}]], 
         RowBox[{"Log", "[", 
          FractionBox[
           RowBox[{
            SuperscriptBox[
             RowBox[{"Abs", "[", "E04", "]"}], "2"], "-", 
            RowBox[{
             RowBox[{"\[Xi]34", "[", 
              RowBox[{"0", ",", "0"}], "]"}], 
             SuperscriptBox[
              RowBox[{"Abs", "[", "E03", "]"}], "2"]}]}], 
           RowBox[{
            RowBox[{
             SuperscriptBox[
              RowBox[{"Abs", "[", "E04", "]"}], "2"], 
             RowBox[{"Exp", "[", 
              RowBox[{
               RowBox[{"tildeg34", "[", 
                RowBox[{"0", ",", "0"}], "]"}], "*", "L", "*", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"\[Xi]34", "[", 
                   RowBox[{"0", ",", "0"}], "]"}], " ", 
                  SuperscriptBox[
                   RowBox[{"Abs", "[", "E03", "]"}], "2"]}], "-", 
                 SuperscriptBox[
                  RowBox[{"Abs", "[", "E04", "]"}], "2"]}], ")"}]}], "]"}]}], 
            "-", 
            RowBox[{
             RowBox[{"\[Xi]34", "[", 
              RowBox[{"0", ",", "0"}], "]"}], 
             SuperscriptBox[
              RowBox[{"Abs", "[", "E03", "]"}], "2"]}]}]], "]"}]}]}]}], 
      "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"\[Delta]40", "=", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Abs", "[", "E03", "]"}], "<", 
         SuperscriptBox["10", 
          RowBox[{"-", "15"}]]}], "&&", 
        RowBox[{
         RowBox[{"Abs", "[", "E04", "]"}], "<", 
         SuperscriptBox["10", 
          RowBox[{"-", "15"}]]}]}], ",", "0", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "I"}], " ", 
         RowBox[{"Log", "[", 
          FractionBox["E04", 
           RowBox[{"Abs", "[", "E04", "]"}]], "]"}]}], "-", 
        RowBox[{
         FractionBox["1", 
          RowBox[{"2", 
           RowBox[{"(", 
            RowBox[{"1", "+", "\[Chi]e"}], ")"}]}]], 
         FractionBox[
          RowBox[{
           SuperscriptBox["maxion", "2"], "-", 
           SuperscriptBox["\[CapitalOmega]", "2"]}], 
          RowBox[{"\[Gamma]m", "*", "\[CapitalOmega]"}]], 
         RowBox[{"Log", "[", 
          FractionBox[
           RowBox[{
            SuperscriptBox[
             RowBox[{"Abs", "[", "E04", "]"}], "2"], "-", 
            RowBox[{
             RowBox[{"\[Xi]34", "[", 
              RowBox[{"0", ",", "0"}], "]"}], 
             SuperscriptBox[
              RowBox[{"Abs", "[", "E03", "]"}], "2"]}]}], 
           RowBox[{
            SuperscriptBox[
             RowBox[{"Abs", "[", "E04", "]"}], "2"], "-", 
            RowBox[{
             RowBox[{"\[Xi]34", "[", 
              RowBox[{"0", ",", "0"}], "]"}], 
             SuperscriptBox[
              RowBox[{"Abs", "[", "E03", "]"}], "2"], 
             RowBox[{"Exp", "[", 
              RowBox[{
               RowBox[{"-", 
                RowBox[{"tildeg34", "[", 
                 RowBox[{"0", ",", "0"}], "]"}]}], "*", "L", "*", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"\[Xi]34", "[", 
                   RowBox[{"0", ",", "0"}], "]"}], " ", 
                  SuperscriptBox[
                   RowBox[{"Abs", "[", "E03", "]"}], "2"]}], "-", 
                 SuperscriptBox[
                  RowBox[{"Abs", "[", "E04", "]"}], "2"]}], ")"}]}], 
              "]"}]}]}]], "]"}]}]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"E01L", "=", 
     RowBox[{
      RowBox[{"Sqrt", "[", 
       RowBox[{"E01sq", "[", 
        RowBox[{"L", ",", "0", ",", "0"}], "]"}], "]"}], "*", 
      RowBox[{"Exp", "[", 
       RowBox[{"I", " ", "\[Delta]10"}], "]"}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"E02L", "=", 
     RowBox[{
      RowBox[{"Sqrt", "[", 
       RowBox[{"E02sq", "[", 
        RowBox[{"L", ",", "0", ",", "0"}], "]"}], "]"}], "*", 
      RowBox[{"Exp", "[", 
       RowBox[{"I", " ", "\[Delta]20"}], "]"}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"E03L", "=", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"E03", "==", "0"}], "&&", 
        RowBox[{"E04", "==", "0"}]}], ",", "0", ",", 
       RowBox[{
        RowBox[{"Sqrt", "[", 
         RowBox[{"E03sq", "[", 
          RowBox[{"L", ",", "0", ",", "0"}], "]"}], "]"}], "*", 
        RowBox[{"Exp", "[", 
         RowBox[{"I", " ", "\[Delta]30"}], "]"}]}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"E04L", "=", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"E03", "==", "0"}], "&&", 
        RowBox[{"E04", "==", "0"}]}], ",", "0", ",", 
       RowBox[{
        RowBox[{"Sqrt", "[", 
         RowBox[{"E04sq", "[", 
          RowBox[{"L", ",", "0", ",", "0"}], "]"}], "]"}], "*", 
        RowBox[{"Exp", "[", 
         RowBox[{"I", " ", "\[Delta]40"}], "]"}]}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"GainsFactor", "=", 
     RowBox[{"tildeg", "*", "L", "*", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"\[Xi]12", "[", 
          RowBox[{"0", ",", "0"}], "]"}], "*", 
         SuperscriptBox[
          RowBox[{"Abs", "[", "E01", "]"}], "2"]}], "-", 
        SuperscriptBox[
         RowBox[{"Abs", "[", "E02", "]"}], "2"]}], ")"}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"\[Delta]1L", "=", 
     RowBox[{
      RowBox[{"-", "I"}], " ", 
      RowBox[{"Log", "[", 
       FractionBox["E01L", 
        RowBox[{"Abs", "[", "E01L", "]"}]], "]"}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"\[Delta]2", "=", 
     RowBox[{
      RowBox[{"-", "I"}], " ", 
      RowBox[{"Log", "[", 
       FractionBox["E02", 
        RowBox[{"Abs", "[", "E02", "]"}]], "]"}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"AppendTo", "[", 
     RowBox[{"Reflectance1", ",", 
      RowBox[{"{", 
       RowBox[{"n", ",", 
        FractionBox[
         RowBox[{"Abs", "[", "E1r", "]"}], "E1a"]}], "}"}]}], "]"}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"AppendTo", "[", 
     RowBox[{"Transmittance1", ",", 
      RowBox[{"{", 
       RowBox[{"n", ",", 
        FractionBox[
         RowBox[{"Abs", "[", "E1t", "]"}], "E1a"]}], "}"}]}], "]"}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"AppendTo", "[", 
     RowBox[{"Reflectance2", ",", 
      RowBox[{"{", 
       RowBox[{"n", ",", 
        FractionBox[
         RowBox[{"Abs", "[", "E2r", "]"}], "E2a"]}], "}"}]}], "]"}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"AppendTo", "[", 
     RowBox[{"Transmittance2", ",", 
      RowBox[{"{", 
       RowBox[{"n", ",", 
        FractionBox[
         RowBox[{"Abs", "[", "E2t", "]"}], "E2a"]}], "}"}]}], "]"}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"G", "=", " ", "GainsFactor"}], ";", "\[IndentingNewLine]", 
    RowBox[{"Gp", "=", 
     RowBox[{"tildeg", "*", "L", "*", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"\[Xi]12", "[", 
         RowBox[{"0", ",", "0"}], "]"}], "*", 
        SuperscriptBox[
         RowBox[{"Abs", "[", "E03", "]"}], "2"]}], ")"}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"refl", "[", "n_", "]"}], ":=", 
     FractionBox[
      RowBox[{"1", "-", "n"}], 
      RowBox[{"1", "+", "n"}]]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"transm", "[", "n_", "]"}], ":=", 
     FractionBox["2", 
      RowBox[{"1", "+", "n"}]]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"T", "[", "n_", "]"}], ":=", 
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"transm", "[", "n", "]"}], "2"], "n", " ", 
       RowBox[{"Exp", "[", 
        RowBox[{"I", " ", "k2", " ", "n", " ", "L"}], "]"}], 
       RowBox[{"Exp", "[", 
        RowBox[{"G", "/", "2"}], "]"}]}], 
      RowBox[{"1", "-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"refl", "[", "n", "]"}], "2"], 
        RowBox[{"Exp", "[", 
         RowBox[{"2", "I", " ", "k2", " ", "n", " ", "L"}], "]"}], 
        RowBox[{"Exp", "[", 
         RowBox[{
          RowBox[{"G", "/", "2"}], "+", 
          RowBox[{"Gp", "/", "2"}]}], "]"}]}]}]]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Ref", "[", "n_", "]"}], ":=", 
     FractionBox[
      RowBox[{
       RowBox[{"refl", "[", "n", "]"}], "-", 
       RowBox[{
        RowBox[{"refl", "[", "n", "]"}], 
        RowBox[{"Exp", "[", 
         RowBox[{"2", "I", " ", "k2", " ", "n", " ", "L"}], "]"}], 
        RowBox[{"Exp", "[", 
         RowBox[{
          RowBox[{"G", "/", "2"}], "+", 
          RowBox[{"Gp", "/", "2"}]}], "]"}]}]}], 
      RowBox[{"1", "-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"refl", "[", "n", "]"}], "2"], 
        RowBox[{"Exp", "[", 
         RowBox[{"2", "I", " ", "k2", " ", "n", " ", "L"}], "]"}], 
        RowBox[{"Exp", "[", 
         RowBox[{
          RowBox[{"G", "/", "2"}], "+", 
          RowBox[{"Gp", "/", "2"}]}], "]"}]}]}]]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"AppendTo", "[", 
     RowBox[{"reflEstimate", ",", 
      RowBox[{"{", 
       RowBox[{"n", ",", 
        RowBox[{"Abs", "[", 
         RowBox[{"Ref", "[", "n", "]"}], "]"}]}], "}"}]}], "]"}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"AppendTo", "[", 
     RowBox[{"transEstimate", ",", 
      RowBox[{"{", 
       RowBox[{"n", ",", 
        RowBox[{"Abs", "[", 
         RowBox[{"T", "[", "n", "]"}], "]"}]}], "}"}]}], "]"}]}]}], 
  "\[IndentingNewLine]", "]"}]}], "Input",
 CellChangeTimes->{{3.9367047496284533`*^9, 3.936704762488407*^9}, {
   3.936704886321021*^9, 3.936704886678664*^9}, {3.9367049241488037`*^9, 
   3.93670514024986*^9}, {3.9367052542161927`*^9, 3.9367053654494667`*^9}, {
   3.93670540074654*^9, 3.936705442330535*^9}, {3.936705689979965*^9, 
   3.9367057278590193`*^9}, {3.936705786408659*^9, 3.936705786449457*^9}, {
   3.9367059282888355`*^9, 3.936705952738982*^9}, {3.936706017908857*^9, 
   3.936706065449813*^9}, {3.9367061103711023`*^9, 3.936706110546516*^9}, {
   3.936706676959077*^9, 3.9367066806299233`*^9}, {3.9367074692692976`*^9, 
   3.9367075167659197`*^9}, {3.938514566817146*^9, 3.938514623567062*^9}, {
   3.938514721985485*^9, 3.9385149051833005`*^9}, 3.938514986275589*^9, {
   3.938516571545368*^9, 3.938516571834133*^9}, {3.93851672101394*^9, 
   3.9385167214341574`*^9}, 3.938517000432563*^9, {3.938517130322589*^9, 
   3.9385171383835754`*^9}, {3.9385172123013105`*^9, 3.938517212543683*^9}, {
   3.938517247951296*^9, 3.938517247991126*^9}, {3.938517301173441*^9, 
   3.9385173019950104`*^9}, {3.938517783375804*^9, 3.9385178600851045`*^9}, {
   3.9385179072118483`*^9, 3.9385179234941*^9}, {3.9385180398256454`*^9, 
   3.93851804626191*^9}, {3.9385185970722976`*^9, 3.938518619341094*^9}, {
   3.9385192445015483`*^9, 3.9385192477507424`*^9}, 3.9385194039214706`*^9, {
   3.938526338062462*^9, 3.938526343867504*^9}, {3.938691904658414*^9, 
   3.9386919173482285`*^9}, {3.9386957446428485`*^9, 
   3.9386957514620395`*^9}, {3.938696711880455*^9, 3.9386967363381433`*^9}, {
   3.9386968299003263`*^9, 3.9386968529880686`*^9}, {3.9386975247916045`*^9, 
   3.938697546479226*^9}, {3.9386981852788877`*^9, 3.9386982204021416`*^9}, {
   3.939293361577503*^9, 3.9392934760335174`*^9}, {3.93929379588418*^9, 
   3.9392938001443033`*^9}, {3.9392950643525095`*^9, 
   3.9392950687631226`*^9}, {3.9392966287414274`*^9, 
   3.9392966363272057`*^9}, {3.9393865005557656`*^9, 
   3.9393865232266436`*^9}},ExpressionUUID->"13504fe7-d04a-4de6-809d-\
8a1d1f7f4174"],

Cell[BoxData[
 TemplateBox[{
  "General", "munfl", 
   "\"\\!\\(\\*RowBox[{\\\"1.4`\\\", \\\" \\\", \
\\\"1.6475002342869362614627447273096`15.954589770191005*^-13050\\\"}]\\) is \
too small to represent as a normalized machine number; precision may be lost.\
\"", 2, 109, 26, 30661157064733445787, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.938519405102433*^9, 3.938526345610648*^9, 3.9386912082973213`*^9, 
   3.938691933397744*^9, 3.938695752324226*^9, 3.938696741807107*^9, 
   3.9386968558102074`*^9, 3.9386975473279867`*^9, 3.9386984270521746`*^9, {
   3.939293482608118*^9, 3.939293498507815*^9}, 3.9392938004451017`*^9, 
   3.939295069868165*^9, 3.93929663834985*^9},
 CellLabel->
  "During evaluation of \
In[101]:=",ExpressionUUID->"570a8551-4330-436a-9052-d0d9503ef9ff"],

Cell[BoxData[
 TemplateBox[{
  "General", "munfl", 
   "\"\\!\\(\\*RowBox[{\\\"Exp\\\", \\\"[\\\", RowBox[{\\\"-\\\", \
\\\"60095.58790452655`\\\"}], \\\"]\\\"}]\\) is too small to represent as a \
normalized machine number; precision may be lost.\"", 2, 109, 27, 
   30661157064733445787, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.938519405102433*^9, 3.938526345610648*^9, 3.9386912082973213`*^9, 
   3.938691933397744*^9, 3.938695752324226*^9, 3.938696741807107*^9, 
   3.9386968558102074`*^9, 3.9386975473279867`*^9, 3.9386984270521746`*^9, {
   3.939293482608118*^9, 3.939293498507815*^9}, 3.9392938004451017`*^9, 
   3.939295069868165*^9, 3.9392966383657713`*^9},
 CellLabel->
  "During evaluation of \
In[101]:=",ExpressionUUID->"10d2716e-d1ff-468f-9a04-455e45d8164b"],

Cell[BoxData[
 TemplateBox[{
  "General", "munfl", 
   "\"\\!\\(\\*RowBox[{RowBox[{\\\"-\\\", \\\"1.164700094352338`\\\"}], \\\" \
\\\", \\\"1.689578638050682489049665183438636`15.954589770191005*^-32719\\\"}]\
\\) is too small to represent as a normalized machine number; precision may \
be lost.\"", 2, 109, 28, 30661157064733445787, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.938519405102433*^9, 3.938526345610648*^9, 3.9386912082973213`*^9, 
   3.938691933397744*^9, 3.938695752324226*^9, 3.938696741807107*^9, 
   3.9386968558102074`*^9, 3.9386975473279867`*^9, 3.9386984270521746`*^9, {
   3.939293482608118*^9, 3.939293498507815*^9}, 3.9392938004451017`*^9, 
   3.939295069868165*^9, 3.9392966383762636`*^9},
 CellLabel->
  "During evaluation of \
In[101]:=",ExpressionUUID->"fe69e718-19f6-4528-b7aa-b144c68d94d1"],

Cell[BoxData[
 TemplateBox[{
  "General", "stop", 
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"", 2, 109, 29, 30661157064733445787, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.938519405102433*^9, 3.938526345610648*^9, 3.9386912082973213`*^9, 
   3.938691933397744*^9, 3.938695752324226*^9, 3.938696741807107*^9, 
   3.9386968558102074`*^9, 3.9386975473279867`*^9, 3.9386984270521746`*^9, {
   3.939293482608118*^9, 3.939293498507815*^9}, 3.9392938004451017`*^9, 
   3.939295069868165*^9, 3.93929663838581*^9},
 CellLabel->
  "During evaluation of \
In[101]:=",ExpressionUUID->"753a9cf8-464d-4242-99af-48d6190b38a0"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Plot as function as \[CapitalOmega]", "Item",
 CellChangeTimes->{{3.936706927789246*^9, 
  3.9367069361202097`*^9}},ExpressionUUID->"481b45aa-7d91-4038-9b82-\
4780a1fd4c70"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"l", "=", "20"}], ";"}], " ", 
  RowBox[{"(*", 
   RowBox[{"Loop", " ", "iterations"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"datapoints", "=", "500"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Reflectance1", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Transmittance1", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Reflectance2", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Transmittance2", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"j", "=", "0"}], ",", 
   RowBox[{"j", "<=", "datapoints"}], ",", 
   RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Initializing", " ", "values"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Clear", "[", 
      RowBox[{
      "E01", ",", "E02", ",", "E03", ",", "E04", ",", "E1r", ",", "E1t", ",", 
       "E2r", ",", "E2t", ",", "E01L", ",", "E02L", ",", "E03L", ",", 
       "E04L"}], "]"}], "\[IndentingNewLine]", 
     RowBox[{"tildealpha", "=", 
      RowBox[{"1", "/", "137"}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"J", "=", " ", 
     RowBox[{"3.31", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "4"}]]}]}], ";", " ", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{"eV", "^", 
       RowBox[{"-", "1"}]}], " ", 
      RowBox[{"nm", "^", 
       RowBox[{"-", "3"}]}]}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{"J", "=", " ", 
       RowBox[{"5.788", "*", 
        SuperscriptBox["10", 
         RowBox[{"-", "4"}]]}]}], ";"}], " ", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"eV", "^", 
        RowBox[{"-", "1"}]}], " ", 
       RowBox[{"nm", "^", 
        RowBox[{"-", "3"}]}]}], "*)"}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{"Cnm", "=", " ", 
     RowBox[{"3", "*", 
      SuperscriptBox["10", "8"], "*", 
      SuperscriptBox["10", "9"]}]}], ";", " ", 
    RowBox[{"(*", 
     RowBox[{"nm", "/", "s"}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{"\[Gamma]m", "=", 
     RowBox[{"4.135", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "5"}]]}]}], ";", 
    RowBox[{"(*", "eV", "*)"}], "\[IndentingNewLine]", 
    RowBox[{"maxion", "=", ".002"}], ";", " ", 
    RowBox[{"(*", "eV", "*)"}], "\[IndentingNewLine]", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{"\[CapitalOmega]", "=", ".002"}], ";", " ", 
      RowBox[{"(*", "eV", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"\[Omega]1", "=", 
       RowBox[{"1483", "*", 
        SuperscriptBox["10", "9"]}]}], ";", 
      RowBox[{"(*", "Hz", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"\[Omega]2", "=", 
       RowBox[{"1000", "*", 
        SuperscriptBox["10", "9"]}]}], ";"}], " ", 
     RowBox[{"(*", "Hz", "*)"}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{"1", " ", "meV"}], " ", "=", " ", 
      RowBox[{"241.9", " ", "GHz"}]}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{"x", "=", 
     RowBox[{"1.8", "+", 
      RowBox[{
       FractionBox[".4", "datapoints"], "j"}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"\[CapitalOmega]", "=", 
     RowBox[{".001", "*", "x"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"\[Omega]1", "=", 
     RowBox[{
      RowBox[{"1000", "*", 
       SuperscriptBox["10", "9"]}], "+", 
      RowBox[{"x", " ", "241.9", "*", 
       SuperscriptBox["10", "9"]}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"\[Omega]2", "=", 
     RowBox[{"1000", "*", 
      SuperscriptBox["10", "9"]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"k1", "=", 
     FractionBox["\[Omega]1", "Cnm"]}], ";", " ", 
    RowBox[{"(*", " ", 
     SuperscriptBox["nm", 
      RowBox[{"-", "1"}]], "*)"}], "\[IndentingNewLine]", 
    RowBox[{"k2", "=", 
     FractionBox["\[Omega]2", "Cnm"]}], ";", 
    RowBox[{"(*", 
     SuperscriptBox["nm", 
      RowBox[{"-", "1"}]], "*)"}], "\[IndentingNewLine]", 
    RowBox[{"Q", "=", 
     RowBox[{"k1", " ", "+", "k2"}]}], ";", 
    RowBox[{"(*", 
     SuperscriptBox["nm", 
      RowBox[{"-", "1"}]], "*)"}], "\[IndentingNewLine]", 
    RowBox[{"\[Epsilon]0", "=", 
     RowBox[{"55.263", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "3"}]]}]}], ";", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{"e", "^", "2"}], " ", 
      RowBox[{"eV", "^", 
       RowBox[{"-", "1"}]}], " ", 
      RowBox[{"nm", "^", 
       RowBox[{"-", "1"}]}]}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{"E1a", "=", ".0055"}], ";", 
    RowBox[{"(*", 
     RowBox[{"V", "/", "nm"}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{"E2a", " ", "=", 
     SuperscriptBox["10", 
      RowBox[{"-", "6"}]]}], ";", 
    RowBox[{"(*", 
     RowBox[{"V", "/", "nm"}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{"L", "=", 
       RowBox[{"6", "*", 
        SuperscriptBox["10", "5"]}]}], ";"}], 
     RowBox[{"(*", "nm", "*)"}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{"L", "=", 
     RowBox[{"6", "*", 
      SuperscriptBox["10", "5"]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"n", "=", "1"}], ";", " ", 
    RowBox[{"(*", 
     RowBox[{"index", " ", "of", " ", "refraction"}], "*)"}], 
    "\[IndentingNewLine]", 
    RowBox[{"\[Chi]e", "=", 
     RowBox[{
      SuperscriptBox["n", "2"], "-", "1"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"(*", 
     RowBox[{"Quantities", " ", "updated", " ", "with", " ", "n"}], "*)"}], 
    "\[IndentingNewLine]", 
    RowBox[{"tildeg", "=", 
     RowBox[{
      FractionBox[
       RowBox[{"2", 
        SuperscriptBox["tildealpha", "2"]}], 
       RowBox[{" ", 
        SuperscriptBox["\[Pi]", "2"]}]], 
      FractionBox["\[Omega]1", 
       RowBox[{"J", "  ", "Cnm"}]], 
      FractionBox[
       SuperscriptBox["n", "3"], 
       RowBox[{"1", "+", "\[Chi]e"}]], "\[Epsilon]0", 
      FractionBox[
       RowBox[{"(", 
        RowBox[{"\[Gamma]m", "*", "\[CapitalOmega]"}], ")"}], 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["maxion", "2"], "-", 
           SuperscriptBox["\[CapitalOmega]", "2"]}], ")"}], "2"], "+", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Gamma]m", "*", "\[CapitalOmega]"}], ")"}], "2"]}]]}]}], 
    ";", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"tildeg12", "[", 
      RowBox[{"\[Phi]1_", ",", "\[Phi]2_"}], "]"}], ":=", 
     RowBox[{"tildeg", "*", 
      FractionBox[
       RowBox[{"Cos", "[", "\[Phi]2", "]"}], 
       RowBox[{"Cos", "[", "\[Phi]1", "]"}]], "*", 
      RowBox[{"Cos", "[", 
       RowBox[{"\[Phi]1", "-", "\[Phi]2"}], "]"}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"tildeg34", "[", 
      RowBox[{"\[Phi]3_", ",", "\[Phi]4_"}], "]"}], ":=", 
     RowBox[{"tildeg", "*", 
      FractionBox[
       RowBox[{"Cos", "[", "\[Phi]4", "]"}], 
       RowBox[{"Cos", "[", "\[Phi]3", "]"}]], "*", 
      RowBox[{"Cos", "[", 
       RowBox[{"\[Phi]3", "-", "\[Phi]4"}], "]"}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"\[Theta]12", "=", "0"}], ";", "\[IndentingNewLine]", 
    RowBox[{"\[Theta]34", "=", "0"}], ";", "\[IndentingNewLine]", 
    RowBox[{"\[Theta]12c", "=", "0"}], ";", "\[IndentingNewLine]", 
    RowBox[{"\[Theta]34c", "=", "0"}], ";", "\[IndentingNewLine]", 
    RowBox[{"\[Theta]12L", "=", "0"}], ";", "\[IndentingNewLine]", 
    RowBox[{"\[Theta]34L", "=", "0"}], ";", "\[IndentingNewLine]", 
    RowBox[{"\[Theta]12cL", "=", "0"}], ";", "\[IndentingNewLine]", 
    RowBox[{"\[Theta]34cL", "=", "0"}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"E02sq", "[", 
      RowBox[{"z_", ",", "\[Phi]1_", ",", "\[Phi]2_"}], "]"}], ":=", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"Abs", "[", "E02", "]"}], "2"], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"\[Xi]12", "[", 
            RowBox[{"\[Phi]1", ",", "\[Phi]2"}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{"Abs", "[", "E01", "]"}], "2"]}], "-", 
          SuperscriptBox[
           RowBox[{"Abs", "[", "E02", "]"}], "2"]}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"\[Xi]12", "[", 
            RowBox[{"\[Phi]1", ",", "\[Phi]2"}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{"Abs", "[", "E01", "]"}], "2"], " ", 
           RowBox[{"Exp", "[", 
            RowBox[{
             RowBox[{"tildeg12", "[", 
              RowBox[{"\[Phi]1", ",", "\[Phi]2"}], "]"}], "*", "z", "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"\[Xi]12", "[", 
                 RowBox[{"\[Phi]1", ",", "\[Phi]2"}], "]"}], 
                SuperscriptBox[
                 RowBox[{"Abs", "[", "E01", "]"}], "2"]}], "-", 
               SuperscriptBox[
                RowBox[{"Abs", "[", "E02", "]"}], "2"]}], ")"}]}], "]"}]}], 
          "-", 
          SuperscriptBox[
           RowBox[{"Abs", "[", "E02", "]"}], "2"]}], ")"}]}], ")"}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"E01sq", "[", 
      RowBox[{"z_", ",", "\[Phi]1_", ",", "\[Phi]2_"}], "]"}], ":=", 
     RowBox[{"Simplify", "[", 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Xi]12", "[", 
           RowBox[{"\[Phi]1", ",", "\[Phi]2"}], "]"}], ")"}], 
         RowBox[{"-", "1"}]], "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"E02sq", "[", 
           RowBox[{"z", ",", "\[Phi]1", ",", "\[Phi]2"}], "]"}], "-", 
          SuperscriptBox[
           RowBox[{"Abs", "[", "E02", "]"}], "2"]}], ")"}]}], "+", 
       SuperscriptBox[
        RowBox[{"Abs", "[", "E01", "]"}], "2"]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"E04sq", "[", 
      RowBox[{"z_", ",", "\[Phi]3_", ",", "\[Phi]4_"}], "]"}], ":=", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"Abs", "[", "E04", "]"}], "2"], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Xi]34", "[", 
           RowBox[{"\[Phi]3", ",", "\[Phi]4"}], "]"}], " ", 
          SuperscriptBox[
           RowBox[{"Abs", "[", "E03", "]"}], "2"]}], "-", 
         SuperscriptBox[
          RowBox[{"Abs", "[", "E04", "]"}], "2"]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Xi]34", "[", 
           RowBox[{"\[Phi]3", ",", "\[Phi]4"}], "]"}], " ", 
          SuperscriptBox[
           RowBox[{"Abs", "[", "E03", "]"}], "2"], " ", 
          RowBox[{"Exp", "[", 
           RowBox[{
            RowBox[{"-", 
             RowBox[{"tildeg34", "[", 
              RowBox[{"\[Phi]3", ",", "\[Phi]4"}], "]"}]}], "*", "z", "*", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"\[Xi]34", "[", 
                RowBox[{"\[Phi]3", ",", "\[Phi]4"}], "]"}], 
               SuperscriptBox[
                RowBox[{"Abs", "[", "E03", "]"}], "2"]}], "-", 
              SuperscriptBox[
               RowBox[{"Abs", "[", "E04", "]"}], "2"]}], ")"}]}], "]"}]}], 
         "-", 
         SuperscriptBox[
          RowBox[{"Abs", "[", "E04", "]"}], "2"]}], ")"}]}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"E03sq", "[", 
      RowBox[{"z_", ",", "\[Phi]3_", ",", "\[Phi]4_"}], "]"}], ":=", 
     RowBox[{"Simplify", "[", 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Xi]34", "[", 
           RowBox[{"\[Phi]3", ",", "\[Phi]4"}], "]"}], ")"}], 
         RowBox[{"-", "1"}]], 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"E04sq", "[", 
           RowBox[{"z", ",", "\[Phi]3", ",", "\[Phi]4"}], "]"}], "-", 
          SuperscriptBox[
           RowBox[{"Abs", "[", "E04", "]"}], "2"]}], ")"}]}], "+", 
       SuperscriptBox[
        RowBox[{"Abs", "[", "E03", "]"}], "2"]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"E01L", " ", "=", " ", "E01"}], ";", "\[IndentingNewLine]", 
    RowBox[{"E02L", "=", "E02"}], ";", "\[IndentingNewLine]", 
    RowBox[{"E03L", "=", "E03"}], ";", "\[IndentingNewLine]", 
    RowBox[{"E04L", "=", "E04"}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"For", "[", 
      RowBox[{
       RowBox[{"i", "=", "1"}], ",", 
       RowBox[{"i", "<=", "l"}], ",", 
       RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"i", "==", "1"}], ",", "\[IndentingNewLine]", 
         RowBox[{"(*", "Initialization", "*)"}], "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"E01L", " ", "=", " ", "E01"}], ";", "\[IndentingNewLine]", 
          RowBox[{"E02L", "=", "E02"}], ";", "\[IndentingNewLine]", 
          RowBox[{"E03L", "=", "E03"}], ";", "\[IndentingNewLine]", 
          RowBox[{"E04L", "=", "E04"}], ";", "\[IndentingNewLine]", 
          RowBox[{"(*", "Solving", "*)"}], "\[IndentingNewLine]", 
          RowBox[{"MySolns", "=", 
           RowBox[{"FindRoot", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{"E1a", "+", "E1r"}], "==", 
                RowBox[{"E01", "+", "E03"}]}], ",", "\[IndentingNewLine]", 
               RowBox[{"E2t", "==", 
                RowBox[{"E02", "+", "E04"}]}], ",", "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{
                 RowBox[{"E01L", "*", 
                  RowBox[{"Exp", "[", 
                   RowBox[{
                    RowBox[{"-", "I"}], " ", "n", " ", "k1", " ", "L"}], 
                   "]"}]}], "+", 
                 RowBox[{"E03L", " ", 
                  RowBox[{"Exp", "[", 
                   RowBox[{"I", " ", "n", " ", "k1", " ", "L"}], "]"}]}]}], "==", 
                RowBox[{"E1t", " ", 
                 RowBox[{"Exp", "[", 
                  RowBox[{
                   RowBox[{"-", "I"}], " ", "k1", " ", "L"}], "]"}]}]}], ",", 
               "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{
                 RowBox[{"E02L", " ", 
                  RowBox[{"Exp", "[", 
                   RowBox[{"I", " ", "n", " ", "k2", " ", "L"}], "]"}]}], "+",
                  " ", 
                 RowBox[{"E04L", "*", 
                  RowBox[{"Exp", "[", 
                   RowBox[{
                    RowBox[{"-", "I"}], " ", "n", " ", "k2", " ", "L"}], 
                   "]"}]}]}], "==", 
                RowBox[{
                 RowBox[{"E2a", " ", 
                  RowBox[{"Exp", "[", 
                   RowBox[{"I", " ", "k2", " ", "L"}], "]"}]}], "+", 
                 RowBox[{"E2r", " ", 
                  RowBox[{"Exp", "[", 
                   RowBox[{
                    RowBox[{"-", "I"}], " ", "k2", " ", "L"}], "]"}]}]}]}], 
               ",", "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{
                 FractionBox["E1a", "n"], "-", 
                 FractionBox["E1r", "n"], "-", "E01", "+", "E03"}], "==", 
                RowBox[{
                 FractionBox[
                  RowBox[{"-", "tildealpha"}], 
                  RowBox[{"n", " ", "\[Pi]"}]], 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Theta]12", " ", "E04"}], "+", 
                   RowBox[{"\[Theta]34", " ", "E02"}]}], ")"}]}]}], ",", 
               "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{
                 FractionBox["E2t", "n"], "-", "E02", "+", "E04"}], "==", 
                RowBox[{
                 FractionBox[
                  RowBox[{"-", "tildealpha"}], 
                  RowBox[{"n", " ", "\[Pi]"}]], 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Theta]12c", " ", "E03"}], " ", "+", " ", 
                   RowBox[{"\[Theta]34c", " ", "E01"}]}], ")"}]}]}], ",", 
               "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{
                 RowBox[{"E01L", " ", 
                  RowBox[{"Exp", "[", 
                   RowBox[{
                    RowBox[{"-", "I"}], " ", "n", " ", "k1", " ", "L"}], 
                   "]"}]}], "-", 
                 RowBox[{"E03L", " ", 
                  RowBox[{"Exp", "[", 
                   RowBox[{"I", " ", "n", " ", "k1", " ", "L"}], "]"}]}], "-",
                  " ", 
                 RowBox[{
                  FractionBox["E1t", "n"], 
                  RowBox[{"Exp", "[", 
                   RowBox[{
                    RowBox[{"-", "I"}], " ", "k1", " ", "L"}], "]"}]}]}], "==", 
                RowBox[{
                 FractionBox["tildealpha", 
                  RowBox[{"n", " ", "\[Pi]"}]], 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Theta]34L", " ", 
                    RowBox[{"Exp", "[", 
                    RowBox[{"I", " ", "n", 
                    RowBox[{"(", " ", 
                    RowBox[{"Q", "+", "k2"}], ")"}], " ", "L"}], "]"}], " ", 
                    "E02L"}], "+", 
                   RowBox[{"\[Theta]12L", " ", 
                    RowBox[{"Exp", "[", 
                    RowBox[{
                    RowBox[{"-", " ", "I"}], " ", "n", 
                    RowBox[{"(", 
                    RowBox[{"Q", "+", "k2"}], ")"}], " ", "L"}], "]"}], " ", 
                    "E04L"}]}], ")"}]}]}], ",", "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{
                 RowBox[{"E02L", " ", 
                  RowBox[{"Exp", "[", 
                   RowBox[{"I", " ", "n", " ", "k2", " ", "L"}], "]"}]}], "-",
                  " ", 
                 RowBox[{"E04L", " ", 
                  RowBox[{"Exp", "[", 
                   RowBox[{
                    RowBox[{"-", "I"}], " ", "n", " ", "k2", " ", "L"}], 
                   "]"}]}], "-", 
                 RowBox[{
                  FractionBox["E2a", "n"], " ", 
                  RowBox[{"Exp", "[", 
                   RowBox[{"I", " ", "k2", " ", "L"}], "]"}]}], "+", 
                 RowBox[{
                  FractionBox["E2r", "n"], 
                  RowBox[{"Exp", "[", 
                   RowBox[{
                    RowBox[{"-", "I"}], " ", "k2", " ", "L"}], "]"}]}]}], "==", 
                RowBox[{
                 FractionBox["tildealpha", 
                  RowBox[{"n", " ", "\[Pi]"}]], 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Theta]34cL", " ", 
                    RowBox[{"Exp", "[", 
                    RowBox[{
                    RowBox[{"-", "I"}], " ", "n", 
                    RowBox[{"(", 
                    RowBox[{"Q", "+", "k1"}], ")"}], " ", "L"}], "]"}], 
                    "E01L"}], " ", "+", " ", 
                   RowBox[{"\[Theta]12cL", " ", 
                    RowBox[{"Exp", "[", 
                    RowBox[{"I", " ", "n", 
                    RowBox[{"(", " ", 
                    RowBox[{"Q", "+", "k1"}], ")"}], " ", "L"}], "]"}], " ", 
                    "E03L"}]}], ")"}]}]}]}], "\[IndentingNewLine]", "}"}], 
             ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"E1r", ",", "1"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"E1t", ",", "1"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"E2r", ",", "1"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"E2t", ",", "1"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"E01", ",", "1"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"E02", ",", "1"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"E03", ",", "1"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"E04", ",", "1"}], "}"}]}], "}"}]}], "]"}]}], ";"}], 
         "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{
           RowBox[{
            RowBox[{"Print", "[", "i", "]"}], ";", "\[IndentingNewLine]", 
            RowBox[{"Print", "[", "MySolns", "]"}], ";"}], ","}], "*)"}], ",",
          "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           RowBox[{"{", 
            RowBox[{
            "E01", ",", "E02", ",", "E03", ",", "E04", ",", "E1r", ",", "E1t",
              ",", "E2r", ",", "E2t"}], "}"}], "=", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
             "E01", ",", "E02", ",", "E03", ",", "E04", ",", "E1r", ",", 
              "E1t", ",", "E2r", ",", "E2t"}], "}"}], "/.", "MySolns"}]}], 
          ";", "\[IndentingNewLine]", 
          RowBox[{"\[Theta]12", "=", 
           RowBox[{
            FractionBox["tildealpha", "\[Pi]"], "n", 
            FractionBox["\[Epsilon]0", "J"], 
            FractionBox[
             RowBox[{"E01", "*", 
              RowBox[{"Conjugate", "[", "E02", "]"}]}], 
             RowBox[{
              SuperscriptBox["maxion", "2"], "-", 
              SuperscriptBox["\[CapitalOmega]", "2"], "+", 
              RowBox[{"I", " ", "\[Gamma]m", " ", "\[CapitalOmega]"}]}]]}]}], 
          ";", "\[IndentingNewLine]", 
          RowBox[{"\[Theta]12c", "=", 
           RowBox[{
            FractionBox["tildealpha", "\[Pi]"], "n", 
            FractionBox["\[Epsilon]0", "J"], 
            FractionBox[
             RowBox[{
              RowBox[{"Conjugate", "[", "E01", "]"}], "*", "E02"}], 
             RowBox[{
              SuperscriptBox["maxion", "2"], "-", 
              SuperscriptBox["\[CapitalOmega]", "2"], "-", 
              RowBox[{"I", " ", "\[Gamma]m", " ", "\[CapitalOmega]"}]}]]}]}], 
          ";", "\[IndentingNewLine]", 
          RowBox[{"\[Theta]34", "=", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["tildealpha", "\[Pi]"]}], "n", 
            FractionBox["\[Epsilon]0", "J"], 
            FractionBox[
             RowBox[{"E03", "*", 
              RowBox[{"Conjugate", "[", "E04", "]"}]}], 
             RowBox[{
              SuperscriptBox["maxion", "2"], "-", 
              SuperscriptBox["\[CapitalOmega]", "2"], "+", 
              RowBox[{"I", " ", "\[Gamma]m", " ", "\[CapitalOmega]"}]}]]}]}], 
          ";", "\[IndentingNewLine]", 
          RowBox[{"\[Theta]34c", "=", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["tildealpha", "\[Pi]"]}], "n", 
            FractionBox["\[Epsilon]0", "J"], 
            FractionBox[
             RowBox[{
              RowBox[{"Conjugate", "[", "E03", "]"}], "*", "E04"}], 
             RowBox[{
              SuperscriptBox["maxion", "2"], "-", 
              SuperscriptBox["\[CapitalOmega]", "2"], "-", 
              RowBox[{"I", " ", "\[Gamma]m", " ", "\[CapitalOmega]"}]}]]}]}], 
          ";", "\[IndentingNewLine]", 
          RowBox[{"(*", 
           RowBox[{
            RowBox[{"Electric", " ", "field", " ", "at", " ", "z"}], "=", 
            "L"}], "*)"}], "\[IndentingNewLine]", 
          RowBox[{"\[Delta]10", "=", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "I"}], " ", 
             RowBox[{"Log", "[", 
              FractionBox["E01", 
               RowBox[{"Abs", "[", "E01", "]"}]], "]"}]}], "-", 
            RowBox[{
             FractionBox["1", 
              RowBox[{"2", 
               RowBox[{"(", 
                RowBox[{"1", "+", "\[Chi]e"}], ")"}]}]], 
             FractionBox[
              RowBox[{
               SuperscriptBox["maxion", "2"], "-", 
               SuperscriptBox["\[CapitalOmega]", "2"]}], 
              RowBox[{"\[Gamma]m", "*", "\[CapitalOmega]"}]], 
             RowBox[{"Log", "[", 
              FractionBox[
               RowBox[{
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"Abs", "[", "E02", "]"}], 
                  RowBox[{"2", " "}]], 
                 RowBox[{"Exp", "[", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{"tildeg12", "[", 
                    RowBox[{"0", ",", "0"}], "]"}]}], "*", "L", "*", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"\[Xi]12", "[", 
                    RowBox[{"0", ",", "0"}], "]"}], 
                    SuperscriptBox[
                    RowBox[{"Abs", "[", "E01", "]"}], "2"]}], "-", 
                    SuperscriptBox[
                    RowBox[{"Abs", "[", "E02", "]"}], "2"]}], ")"}]}], 
                  "]"}]}], "-", 
                RowBox[{
                 RowBox[{"\[Xi]12", "[", 
                  RowBox[{"0", ",", "0"}], "]"}], 
                 SuperscriptBox[
                  RowBox[{"Abs", "[", "E01", "]"}], "2"]}]}], 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"Abs", "[", "E02", "]"}], "2"], "-", 
                RowBox[{
                 RowBox[{"\[Xi]12", "[", 
                  RowBox[{"0", ",", "0"}], "]"}], 
                 SuperscriptBox[
                  RowBox[{"Abs", "[", "E01", "]"}], "2"]}]}]], "]"}]}]}]}], 
          ";", "\[IndentingNewLine]", 
          RowBox[{"\[Delta]20", "=", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "I"}], " ", 
             RowBox[{"Log", "[", 
              FractionBox["E02", 
               RowBox[{"Abs", "[", "E02", "]"}]], "]"}]}], "+", 
            RowBox[{
             FractionBox["1", 
              RowBox[{"2", 
               RowBox[{"(", 
                RowBox[{"1", "+", "\[Chi]e"}], ")"}]}]], 
             FractionBox[
              RowBox[{
               SuperscriptBox["maxion", "2"], "-", 
               SuperscriptBox["\[CapitalOmega]", "2"]}], 
              RowBox[{"\[Gamma]m", "*", "\[CapitalOmega]"}]], 
             RowBox[{"Log", "[", 
              FractionBox[
               RowBox[{
                SuperscriptBox[
                 RowBox[{"Abs", "[", "E02", "]"}], "2"], "-", 
                RowBox[{
                 RowBox[{"\[Xi]12", "[", 
                  RowBox[{"0", ",", "0"}], "]"}], 
                 SuperscriptBox[
                  RowBox[{"Abs", "[", "E01", "]"}], "2"], 
                 RowBox[{"Exp", "[", 
                  RowBox[{
                   RowBox[{"tildeg12", "[", 
                    RowBox[{"0", ",", "0"}], "]"}], "*", "L", "*", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"\[Xi]12", "[", 
                    RowBox[{"0", ",", "0"}], "]"}], 
                    SuperscriptBox[
                    RowBox[{"Abs", "[", "E01", "]"}], "2"]}], "-", 
                    SuperscriptBox[
                    RowBox[{"Abs", "[", "E02", "]"}], "2"]}], ")"}]}], 
                  "]"}]}]}], 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"Abs", "[", "E02", "]"}], "2"], "-", 
                RowBox[{
                 RowBox[{"\[Xi]12", "[", 
                  RowBox[{"0", ",", "0"}], "]"}], 
                 SuperscriptBox[
                  RowBox[{"Abs", "[", "E01", "]"}], "2"]}]}]], "]"}]}]}]}], 
          ";", "\[IndentingNewLine]", 
          RowBox[{"\[Delta]30", "=", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Abs", "[", "E03", "]"}], "<", 
               SuperscriptBox["10", 
                RowBox[{"-", "15"}]]}], "&&", 
              RowBox[{
               RowBox[{"Abs", "[", "E04", "]"}], "<", 
               SuperscriptBox["10", 
                RowBox[{"-", "15"}]]}]}], ",", "0", ",", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "I"}], " ", 
               RowBox[{"Log", "[", 
                FractionBox["E03", 
                 RowBox[{"Abs", "[", "E03", "]"}]], "]"}]}], "+", 
              RowBox[{
               FractionBox["1", 
                RowBox[{"2", 
                 RowBox[{"(", 
                  RowBox[{"1", "+", "\[Chi]e"}], ")"}]}]], 
               FractionBox[
                RowBox[{
                 SuperscriptBox["maxion", "2"], "-", 
                 SuperscriptBox["\[CapitalOmega]", "2"]}], 
                RowBox[{"\[Gamma]m", "*", "\[CapitalOmega]"}]], 
               RowBox[{"Log", "[", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"Abs", "[", "E04", "]"}], "2"], "-", 
                  RowBox[{
                   RowBox[{"\[Xi]34", "[", 
                    RowBox[{"0", ",", "0"}], "]"}], 
                   SuperscriptBox[
                    RowBox[{"Abs", "[", "E03", "]"}], "2"]}]}], 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox[
                    RowBox[{"Abs", "[", "E04", "]"}], "2"], 
                   RowBox[{"Exp", "[", 
                    RowBox[{
                    RowBox[{"tildeg34", "[", 
                    RowBox[{"0", ",", "0"}], "]"}], "*", "L", "*", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"\[Xi]34", "[", 
                    RowBox[{"0", ",", "0"}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"Abs", "[", "E03", "]"}], "2"]}], "-", 
                    SuperscriptBox[
                    RowBox[{"Abs", "[", "E04", "]"}], "2"]}], ")"}]}], 
                    "]"}]}], "-", 
                  RowBox[{
                   RowBox[{"\[Xi]34", "[", 
                    RowBox[{"0", ",", "0"}], "]"}], 
                   SuperscriptBox[
                    RowBox[{"Abs", "[", "E03", "]"}], "2"]}]}]], "]"}]}]}]}], 
            "]"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"\[Delta]40", "=", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Abs", "[", "E03", "]"}], "<", 
               SuperscriptBox["10", 
                RowBox[{"-", "15"}]]}], "&&", 
              RowBox[{
               RowBox[{"Abs", "[", "E04", "]"}], "<", 
               SuperscriptBox["10", 
                RowBox[{"-", "15"}]]}]}], ",", "0", ",", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "I"}], " ", 
               RowBox[{"Log", "[", 
                FractionBox["E04", 
                 RowBox[{"Abs", "[", "E04", "]"}]], "]"}]}], "+", 
              RowBox[{
               FractionBox["1", 
                RowBox[{"2", 
                 RowBox[{"(", 
                  RowBox[{"1", "+", "\[Chi]e"}], ")"}]}]], 
               FractionBox[
                RowBox[{
                 SuperscriptBox["maxion", "2"], "-", 
                 SuperscriptBox["\[CapitalOmega]", "2"]}], 
                RowBox[{"\[Gamma]m", "*", "\[CapitalOmega]"}]], 
               RowBox[{"Log", "[", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"Abs", "[", "E04", "]"}], "2"], "-", 
                  RowBox[{
                   RowBox[{"\[Xi]34", "[", 
                    RowBox[{"0", ",", "0"}], "]"}], 
                   SuperscriptBox[
                    RowBox[{"Abs", "[", "E03", "]"}], "2"], 
                   RowBox[{"Exp", "[", 
                    RowBox[{
                    RowBox[{"-", 
                    RowBox[{"tildeg34", "[", 
                    RowBox[{"0", ",", "0"}], "]"}]}], "*", "L", "*", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"\[Xi]34", "[", 
                    RowBox[{"0", ",", "0"}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"Abs", "[", "E03", "]"}], "2"]}], "-", 
                    SuperscriptBox[
                    RowBox[{"Abs", "[", "E04", "]"}], "2"]}], ")"}]}], 
                    "]"}]}]}], 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"Abs", "[", "E04", "]"}], "2"], "-", 
                  RowBox[{
                   RowBox[{"\[Xi]34", "[", 
                    RowBox[{"0", ",", "0"}], "]"}], 
                   SuperscriptBox[
                    RowBox[{"Abs", "[", "E03", "]"}], "2"]}]}]], "]"}]}]}]}], 
            "]"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"E01L", "=", 
           RowBox[{
            RowBox[{"Sqrt", "[", 
             RowBox[{"E01sq", "[", 
              RowBox[{"L", ",", "0", ",", "0"}], "]"}], "]"}], "*", 
            RowBox[{"Exp", "[", 
             RowBox[{"I", " ", "\[Delta]10"}], "]"}]}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"E02L", "=", 
           RowBox[{
            RowBox[{"Sqrt", "[", 
             RowBox[{"E02sq", "[", 
              RowBox[{"L", ",", "0", ",", "0"}], "]"}], "]"}], "*", 
            RowBox[{"Exp", "[", 
             RowBox[{"I", " ", "\[Delta]20"}], "]"}]}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"(*", 
           RowBox[{
            RowBox[{"E03L", "=", 
             RowBox[{
              RowBox[{"Sqrt", "[", 
               RowBox[{"E03sq", "[", 
                RowBox[{"L", ",", "\[Phi]3", ",", "\[Phi]4"}], "]"}], "]"}], 
              "*", 
              RowBox[{"Exp", "[", 
               RowBox[{"I", " ", "\[Delta]30"}], "]"}]}]}], ";"}], "*)"}], 
          "\[IndentingNewLine]", 
          RowBox[{"E03L", "=", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"E03", "==", "0"}], "&&", 
              RowBox[{"E04", "==", "0"}]}], ",", "0", ",", 
             RowBox[{
              RowBox[{"Sqrt", "[", 
               RowBox[{"E03sq", "[", 
                RowBox[{"L", ",", "0", ",", "0"}], "]"}], "]"}], "*", 
              RowBox[{"Exp", "[", 
               RowBox[{"I", " ", "\[Delta]30"}], "]"}]}]}], "]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"(*", 
           RowBox[{
            RowBox[{"E04L", "=", 
             RowBox[{
              RowBox[{"Sqrt", "[", 
               RowBox[{"E04sq", "[", 
                RowBox[{"L", ",", "\[Phi]3", ",", "\[Phi]4"}], "]"}], "]"}], 
              "*", 
              RowBox[{"Exp", "[", 
               RowBox[{"I", " ", "\[Delta]40"}], "]"}]}]}], ";"}], "*)"}], 
          "\[IndentingNewLine]", 
          RowBox[{"E04L", "=", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"E03", "==", "0"}], "&&", 
              RowBox[{"E04", "==", "0"}]}], ",", "0", ",", 
             RowBox[{
              RowBox[{"Sqrt", "[", 
               RowBox[{"E04sq", "[", 
                RowBox[{"L", ",", "0", ",", "0"}], "]"}], "]"}], "*", 
              RowBox[{"Exp", "[", 
               RowBox[{"I", " ", "\[Delta]40"}], "]"}]}]}], "]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"(*", 
           RowBox[{
            RowBox[{"Axion", " ", "at", " ", "z"}], " ", "=", " ", "L"}], 
           "*)"}], "\[IndentingNewLine]", 
          RowBox[{"\[Theta]12L", "=", 
           RowBox[{
            FractionBox["tildealpha", "\[Pi]"], "n", 
            FractionBox["\[Epsilon]0", "J"], 
            FractionBox[
             RowBox[{"E01L", "*", 
              RowBox[{"Conjugate", "[", "E02L", "]"}]}], 
             RowBox[{
              SuperscriptBox["maxion", "2"], "-", 
              SuperscriptBox["\[CapitalOmega]", "2"], "+", 
              RowBox[{"I", " ", "\[Gamma]m", " ", "\[CapitalOmega]"}]}]]}]}], 
          ";", "\[IndentingNewLine]", 
          RowBox[{"\[Theta]12cL", "=", 
           RowBox[{
            FractionBox["tildealpha", "\[Pi]"], "n", 
            FractionBox["\[Epsilon]0", "J"], 
            FractionBox[
             RowBox[{
              RowBox[{"Conjugate", "[", "E01L", "]"}], "*", "E02L"}], 
             RowBox[{
              SuperscriptBox["maxion", "2"], "-", 
              SuperscriptBox["\[CapitalOmega]", "2"], "-", 
              RowBox[{"I", " ", "\[Gamma]m", " ", "\[CapitalOmega]"}]}]]}]}], 
          ";", "\[IndentingNewLine]", 
          RowBox[{"\[Theta]34L", "=", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["tildealpha", "\[Pi]"]}], "n", 
            FractionBox["\[Epsilon]0", "J"], 
            FractionBox[
             RowBox[{"E03L", "*", 
              RowBox[{"Conjugate", "[", "E04L", "]"}]}], 
             RowBox[{
              SuperscriptBox["maxion", "2"], "-", 
              SuperscriptBox["\[CapitalOmega]", "2"], "+", 
              RowBox[{"I", " ", "\[Gamma]m", " ", "\[CapitalOmega]"}]}]]}]}], 
          ";", "\[IndentingNewLine]", 
          RowBox[{"\[Theta]34cL", "=", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["tildealpha", "\[Pi]"]}], "n", 
            FractionBox["\[Epsilon]0", "J"], 
            FractionBox[
             RowBox[{
              RowBox[{"Conjugate", "[", "E03L", "]"}], "*", "E04L"}], 
             RowBox[{
              SuperscriptBox["maxion", "2"], "-", 
              SuperscriptBox["\[CapitalOmega]", "2"], "-", 
              RowBox[{"I", " ", "\[Gamma]m", " ", "\[CapitalOmega]"}]}]]}]}], 
          ";", "\[IndentingNewLine]", 
          RowBox[{"Clear", "[", 
           RowBox[{
           "E01", ",", "E02", ",", "E03", ",", "E04", ",", "E1r", ",", "E1t", 
            ",", "E2r", ",", "E2t", ",", "E01L", ",", "E02L", ",", "E03L", 
            ",", "E04L", ",", "\[Delta]10", ",", "\[Delta]20", ",", 
            "\[Delta]30", ",", "\[Delta]40"}], "]"}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"\[Delta]10", "=", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "I"}], " ", 
             RowBox[{"Log", "[", 
              FractionBox["E01", 
               RowBox[{"Abs", "[", "E01", "]"}]], "]"}]}], "-", 
            RowBox[{
             FractionBox["1", 
              RowBox[{"2", 
               RowBox[{"(", 
                RowBox[{"1", "+", "\[Chi]e"}], ")"}]}]], 
             FractionBox[
              RowBox[{
               SuperscriptBox["maxion", "2"], "-", 
               SuperscriptBox["\[CapitalOmega]", "2"]}], 
              RowBox[{"\[Gamma]m", "*", "\[CapitalOmega]"}]], 
             RowBox[{"Log", "[", 
              FractionBox[
               RowBox[{
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"Abs", "[", "E02", "]"}], 
                  RowBox[{"2", " "}]], 
                 RowBox[{"Exp", "[", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{"tildeg12", "[", 
                    RowBox[{"0", ",", "0"}], "]"}]}], "*", "L", "*", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"\[Xi]12", "[", 
                    RowBox[{"0", ",", "0"}], "]"}], 
                    SuperscriptBox[
                    RowBox[{"Abs", "[", "E01", "]"}], "2"]}], "-", 
                    SuperscriptBox[
                    RowBox[{"Abs", "[", "E02", "]"}], "2"]}], ")"}]}], 
                  "]"}]}], "-", 
                RowBox[{
                 RowBox[{"\[Xi]12", "[", 
                  RowBox[{"0", ",", "0"}], "]"}], 
                 SuperscriptBox[
                  RowBox[{"Abs", "[", "E01", "]"}], "2"]}]}], 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"Abs", "[", "E02", "]"}], "2"], "-", 
                RowBox[{
                 RowBox[{"\[Xi]12", "[", 
                  RowBox[{"0", ",", "0"}], "]"}], 
                 SuperscriptBox[
                  RowBox[{"Abs", "[", "E01", "]"}], "2"]}]}]], "]"}]}]}]}], 
          ";", "\[IndentingNewLine]", 
          RowBox[{"\[Delta]20", "=", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "I"}], " ", 
             RowBox[{"Log", "[", 
              FractionBox["E02", 
               RowBox[{"Abs", "[", "E02", "]"}]], "]"}]}], "+", 
            RowBox[{
             FractionBox["1", 
              RowBox[{"2", 
               RowBox[{"(", 
                RowBox[{"1", "+", "\[Chi]e"}], ")"}]}]], 
             FractionBox[
              RowBox[{
               SuperscriptBox["maxion", "2"], "-", 
               SuperscriptBox["\[CapitalOmega]", "2"]}], 
              RowBox[{"\[Gamma]m", "*", "\[CapitalOmega]"}]], 
             RowBox[{"Log", "[", 
              FractionBox[
               RowBox[{
                SuperscriptBox[
                 RowBox[{"Abs", "[", "E02", "]"}], "2"], "-", 
                RowBox[{
                 RowBox[{"\[Xi]12", "[", 
                  RowBox[{"0", ",", "0"}], "]"}], 
                 SuperscriptBox[
                  RowBox[{"Abs", "[", "E01", "]"}], "2"], 
                 RowBox[{"Exp", "[", 
                  RowBox[{
                   RowBox[{"tildeg12", "[", 
                    RowBox[{"0", ",", "0"}], "]"}], "*", "L", "*", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"\[Xi]12", "[", 
                    RowBox[{"0", ",", "0"}], "]"}], 
                    SuperscriptBox[
                    RowBox[{"Abs", "[", "E01", "]"}], "2"]}], "-", 
                    SuperscriptBox[
                    RowBox[{"Abs", "[", "E02", "]"}], "2"]}], ")"}]}], 
                  "]"}]}]}], 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"Abs", "[", "E02", "]"}], "2"], "-", 
                RowBox[{
                 RowBox[{"\[Xi]12", "[", 
                  RowBox[{"0", ",", "0"}], "]"}], 
                 SuperscriptBox[
                  RowBox[{"Abs", "[", "E01", "]"}], "2"]}]}]], "]"}]}]}]}], 
          ";", "\[IndentingNewLine]", 
          RowBox[{"\[Delta]30", "=", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "I"}], " ", 
             RowBox[{"Log", "[", 
              FractionBox["E03", 
               RowBox[{"Abs", "[", "E03", "]"}]], "]"}]}], "+", 
            RowBox[{
             FractionBox["1", 
              RowBox[{"2", 
               RowBox[{"(", 
                RowBox[{"1", "+", "\[Chi]e"}], ")"}]}]], 
             FractionBox[
              RowBox[{
               SuperscriptBox["maxion", "2"], "-", 
               SuperscriptBox["\[CapitalOmega]", "2"]}], 
              RowBox[{"\[Gamma]m", "*", "\[CapitalOmega]"}]], 
             RowBox[{"Log", "[", 
              FractionBox[
               RowBox[{
                SuperscriptBox[
                 RowBox[{"Abs", "[", "E04", "]"}], "2"], "-", 
                RowBox[{
                 RowBox[{"\[Xi]34", "[", 
                  RowBox[{"0", ",", "0"}], "]"}], 
                 SuperscriptBox[
                  RowBox[{"Abs", "[", "E03", "]"}], "2"]}]}], 
               RowBox[{
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"Abs", "[", "E04", "]"}], "2"], 
                 RowBox[{"Exp", "[", 
                  RowBox[{
                   RowBox[{"tildeg34", "[", 
                    RowBox[{"0", ",", "0"}], "]"}], "*", "L", "*", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"\[Xi]34", "[", 
                    RowBox[{"0", ",", "0"}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"Abs", "[", "E03", "]"}], "2"]}], "-", 
                    SuperscriptBox[
                    RowBox[{"Abs", "[", "E04", "]"}], "2"]}], ")"}]}], 
                  "]"}]}], "-", 
                RowBox[{
                 RowBox[{"\[Xi]34", "[", 
                  RowBox[{"0", ",", "0"}], "]"}], 
                 SuperscriptBox[
                  RowBox[{"Abs", "[", "E03", "]"}], "2"]}]}]], "]"}]}]}]}], 
          ";", "\[IndentingNewLine]", 
          RowBox[{"\[Delta]40", "=", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "I"}], " ", 
             RowBox[{"Log", "[", 
              FractionBox["E04", 
               RowBox[{"Abs", "[", "E04", "]"}]], "]"}]}], "+", 
            RowBox[{
             FractionBox["1", 
              RowBox[{"2", 
               RowBox[{"(", 
                RowBox[{"1", "+", "\[Chi]e"}], ")"}]}]], 
             FractionBox[
              RowBox[{
               SuperscriptBox["maxion", "2"], "-", 
               SuperscriptBox["\[CapitalOmega]", "2"]}], 
              RowBox[{"\[Gamma]m", "*", "\[CapitalOmega]"}]], 
             RowBox[{"Log", "[", 
              FractionBox[
               RowBox[{
                SuperscriptBox[
                 RowBox[{"Abs", "[", "E04", "]"}], "2"], "-", 
                RowBox[{
                 RowBox[{"\[Xi]34", "[", 
                  RowBox[{"0", ",", "0"}], "]"}], 
                 SuperscriptBox[
                  RowBox[{"Abs", "[", "E03", "]"}], "2"], 
                 RowBox[{"Exp", "[", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{"tildeg34", "[", 
                    RowBox[{"0", ",", "0"}], "]"}]}], "*", "L", "*", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"\[Xi]34", "[", 
                    RowBox[{"0", ",", "0"}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"Abs", "[", "E03", "]"}], "2"]}], "-", 
                    SuperscriptBox[
                    RowBox[{"Abs", "[", "E04", "]"}], "2"]}], ")"}]}], 
                  "]"}]}]}], 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"Abs", "[", "E04", "]"}], "2"], "-", 
                RowBox[{
                 RowBox[{"\[Xi]34", "[", 
                  RowBox[{"0", ",", "0"}], "]"}], 
                 SuperscriptBox[
                  RowBox[{"Abs", "[", "E03", "]"}], "2"]}]}]], "]"}]}]}]}], 
          ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
          RowBox[{"E01L", "=", 
           RowBox[{
            RowBox[{"Sqrt", "[", 
             RowBox[{"E01sq", "[", 
              RowBox[{"L", ",", "0", ",", "0"}], "]"}], "]"}], "*", 
            RowBox[{"Exp", "[", 
             RowBox[{"I", " ", "\[Delta]10"}], "]"}]}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"E02L", "=", 
           RowBox[{
            RowBox[{"Sqrt", "[", 
             RowBox[{"E02sq", "[", 
              RowBox[{"L", ",", "0", ",", "0"}], "]"}], "]"}], "*", 
            RowBox[{"Exp", "[", 
             RowBox[{"I", " ", "\[Delta]20"}], "]"}]}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"E03L", "=", 
           RowBox[{
            RowBox[{"Sqrt", "[", 
             RowBox[{"E03sq", "[", 
              RowBox[{"L", ",", "0", ",", "0"}], "]"}], "]"}], "*", 
            RowBox[{"Exp", "[", 
             RowBox[{"I", " ", "\[Delta]30"}], "]"}]}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"E04L", "=", 
           RowBox[{
            RowBox[{"Sqrt", "[", 
             RowBox[{"E04sq", "[", 
              RowBox[{"L", ",", "0", ",", "0"}], "]"}], "]"}], "*", 
            RowBox[{"Exp", "[", 
             RowBox[{"I", " ", "\[Delta]40"}], "]"}]}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"MySolns", "=", 
           RowBox[{"FindRoot", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{"E1a", "+", "E1r"}], "==", 
                RowBox[{"E01", "+", "E03"}]}], ",", "\[IndentingNewLine]", 
               RowBox[{"E2t", "==", 
                RowBox[{"E02", "+", "E04"}]}], ",", "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{
                 RowBox[{"E01L", "*", 
                  RowBox[{"Exp", "[", 
                   RowBox[{
                    RowBox[{"-", "I"}], " ", "n", " ", "k1", " ", "L"}], 
                   "]"}]}], "+", 
                 RowBox[{"E03L", " ", 
                  RowBox[{"Exp", "[", 
                   RowBox[{"I", " ", "n", " ", "k1", " ", "L"}], "]"}]}]}], "==", 
                RowBox[{"E1t", " ", 
                 RowBox[{"Exp", "[", 
                  RowBox[{
                   RowBox[{"-", "I"}], " ", "k1", " ", "L"}], "]"}]}]}], ",", 
               "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{
                 RowBox[{"E02L", " ", 
                  RowBox[{"Exp", "[", 
                   RowBox[{"I", " ", "n", " ", "k2", " ", "L"}], "]"}]}], "+",
                  " ", 
                 RowBox[{"E04L", "*", 
                  RowBox[{"Exp", "[", 
                   RowBox[{
                    RowBox[{"-", "I"}], " ", "n", " ", "k2", " ", "L"}], 
                   "]"}]}]}], "==", 
                RowBox[{
                 RowBox[{"E2a", " ", 
                  RowBox[{"Exp", "[", 
                   RowBox[{"I", " ", "k2", " ", "L"}], "]"}]}], "+", 
                 RowBox[{"E2r", " ", 
                  RowBox[{"Exp", "[", 
                   RowBox[{
                    RowBox[{"-", "I"}], " ", "k2", " ", "L"}], "]"}]}]}]}], 
               ",", "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{
                 FractionBox["E1a", "n"], "-", 
                 FractionBox["E1r", "n"], "-", "E01", "+", "E03"}], "==", 
                RowBox[{
                 FractionBox[
                  RowBox[{"-", "tildealpha"}], 
                  RowBox[{"n", " ", "\[Pi]"}]], 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Theta]12", " ", "E04"}], "+", 
                   RowBox[{"\[Theta]34", " ", "E02"}]}], ")"}]}]}], ",", 
               "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{
                 FractionBox["E2t", "n"], "-", "E02", "+", "E04"}], "==", 
                RowBox[{
                 FractionBox[
                  RowBox[{"-", "tildealpha"}], 
                  RowBox[{"n", " ", "\[Pi]"}]], 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Theta]12c", " ", "E03"}], " ", "+", " ", 
                   RowBox[{"\[Theta]34c", " ", "E01"}]}], ")"}]}]}], ",", 
               "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{
                 RowBox[{"E01L", " ", 
                  RowBox[{"Exp", "[", 
                   RowBox[{
                    RowBox[{"-", "I"}], " ", "n", " ", "k1", " ", "L"}], 
                   "]"}]}], "-", 
                 RowBox[{"E03L", " ", 
                  RowBox[{"Exp", "[", 
                   RowBox[{"I", " ", "n", " ", "k1", " ", "L"}], "]"}]}], "-",
                  " ", 
                 RowBox[{
                  FractionBox["E1t", "n"], 
                  RowBox[{"Exp", "[", 
                   RowBox[{
                    RowBox[{"-", "I"}], " ", "k1", " ", "L"}], "]"}]}]}], "==", 
                RowBox[{
                 FractionBox["tildealpha", 
                  RowBox[{"n", " ", "\[Pi]"}]], 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Theta]34L", " ", 
                    RowBox[{"Exp", "[", 
                    RowBox[{"I", " ", "n", 
                    RowBox[{"(", " ", 
                    RowBox[{"Q", "+", "k2"}], ")"}], " ", "L"}], "]"}], " ", 
                    "E02L"}], "+", 
                   RowBox[{"\[Theta]12L", " ", 
                    RowBox[{"Exp", "[", 
                    RowBox[{
                    RowBox[{"-", " ", "I"}], " ", "n", 
                    RowBox[{"(", 
                    RowBox[{"Q", "+", "k2"}], ")"}], " ", "L"}], "]"}], " ", 
                    "E04L"}]}], ")"}]}]}], ",", "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{
                 RowBox[{"E02L", " ", 
                  RowBox[{"Exp", "[", 
                   RowBox[{"I", " ", "n", " ", "k2", " ", "L"}], "]"}]}], "-",
                  " ", 
                 RowBox[{"E04L", " ", 
                  RowBox[{"Exp", "[", 
                   RowBox[{
                    RowBox[{"-", "I"}], " ", "n", " ", "k2", " ", "L"}], 
                   "]"}]}], "-", 
                 RowBox[{
                  FractionBox["E2a", "n"], " ", 
                  RowBox[{"Exp", "[", 
                   RowBox[{"I", " ", "k2", " ", "L"}], "]"}]}], "+", 
                 RowBox[{
                  FractionBox["E2r", "n"], 
                  RowBox[{"Exp", "[", 
                   RowBox[{
                    RowBox[{"-", "I"}], " ", "k2", " ", "L"}], "]"}]}]}], "==", 
                RowBox[{
                 FractionBox["tildealpha", 
                  RowBox[{"n", " ", "\[Pi]"}]], 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Theta]34cL", " ", 
                    RowBox[{"Exp", "[", 
                    RowBox[{
                    RowBox[{"-", "I"}], " ", "n", 
                    RowBox[{"(", 
                    RowBox[{"Q", "+", "k1"}], ")"}], " ", "L"}], "]"}], 
                    "E01L"}], " ", "+", " ", 
                   RowBox[{"\[Theta]12cL", " ", 
                    RowBox[{"Exp", "[", 
                    RowBox[{"I", " ", "n", 
                    RowBox[{"(", " ", 
                    RowBox[{"Q", "+", "k1"}], ")"}], " ", "L"}], "]"}], " ", 
                    "E03L"}]}], ")"}]}]}]}], "\[IndentingNewLine]", "}"}], 
             ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"E1r", ",", "1"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"E1t", ",", "1.1"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"E2r", ",", "1.1"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"E2t", ",", "1.3"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"E01", ",", "1.4"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"E02", ",", "1.5"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"E03", ",", "1.6"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"E04", ",", "1.7"}], "}"}]}], "}"}]}], "]"}]}], 
          ";"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", 
      "]"}], "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{
       "Taking", " ", "Last", " ", "solutions", " ", "and", " ", "printing", 
        " ", "out", " ", "some", " ", "information"}], ",", " ", 
       RowBox[{
        RowBox[{
        "which", " ", "requires", " ", "the", " ", "fields", " ", "at", " ", 
         "z"}], " ", "=", " ", "L"}]}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "E01", ",", "E02", ",", "E03", ",", "E04", ",", "E1r", ",", "E1t", ",",
         "E2r", ",", "E2t"}], "}"}], "=", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "E01", ",", "E02", ",", "E03", ",", "E04", ",", "E1r", ",", "E1t", 
         ",", "E2r", ",", "E2t"}], "}"}], "/.", "MySolns"}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{"Electric", " ", "field", " ", "at", " ", "z"}], "=", "L"}], 
     "*)"}], "\[IndentingNewLine]", 
    RowBox[{"\[Delta]10", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "I"}], " ", 
       RowBox[{"Log", "[", 
        FractionBox["E01", 
         RowBox[{"Abs", "[", "E01", "]"}]], "]"}]}], "-", 
      RowBox[{
       FractionBox["1", 
        RowBox[{"2", 
         RowBox[{"(", 
          RowBox[{"1", "+", "\[Chi]e"}], ")"}]}]], 
       FractionBox[
        RowBox[{
         SuperscriptBox["maxion", "2"], "-", 
         SuperscriptBox["\[CapitalOmega]", "2"]}], 
        RowBox[{"\[Gamma]m", "*", "\[CapitalOmega]"}]], 
       RowBox[{"Log", "[", 
        FractionBox[
         RowBox[{
          RowBox[{
           SuperscriptBox[
            RowBox[{"Abs", "[", "E02", "]"}], 
            RowBox[{"2", " "}]], 
           RowBox[{"Exp", "[", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{"tildeg12", "[", 
               RowBox[{"0", ",", "0"}], "]"}]}], "*", "L", "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"\[Xi]12", "[", 
                 RowBox[{"0", ",", "0"}], "]"}], 
                SuperscriptBox[
                 RowBox[{"Abs", "[", "E01", "]"}], "2"]}], "-", 
               SuperscriptBox[
                RowBox[{"Abs", "[", "E02", "]"}], "2"]}], ")"}]}], "]"}]}], 
          "-", 
          RowBox[{
           RowBox[{"\[Xi]12", "[", 
            RowBox[{"0", ",", "0"}], "]"}], 
           SuperscriptBox[
            RowBox[{"Abs", "[", "E01", "]"}], "2"]}]}], 
         RowBox[{
          SuperscriptBox[
           RowBox[{"Abs", "[", "E02", "]"}], "2"], "-", 
          RowBox[{
           RowBox[{"\[Xi]12", "[", 
            RowBox[{"0", ",", "0"}], "]"}], 
           SuperscriptBox[
            RowBox[{"Abs", "[", "E01", "]"}], "2"]}]}]], "]"}]}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"\[Delta]20", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "I"}], " ", 
       RowBox[{"Log", "[", 
        FractionBox["E02", 
         RowBox[{"Abs", "[", "E02", "]"}]], "]"}]}], "+", 
      RowBox[{
       FractionBox["1", 
        RowBox[{"2", 
         RowBox[{"(", 
          RowBox[{"1", "+", "\[Chi]e"}], ")"}]}]], 
       FractionBox[
        RowBox[{
         SuperscriptBox["maxion", "2"], "-", 
         SuperscriptBox["\[CapitalOmega]", "2"]}], 
        RowBox[{"\[Gamma]m", "*", "\[CapitalOmega]"}]], 
       RowBox[{"Log", "[", 
        FractionBox[
         RowBox[{
          SuperscriptBox[
           RowBox[{"Abs", "[", "E02", "]"}], "2"], "-", 
          RowBox[{
           RowBox[{"\[Xi]12", "[", 
            RowBox[{"0", ",", "0"}], "]"}], 
           SuperscriptBox[
            RowBox[{"Abs", "[", "E01", "]"}], "2"], 
           RowBox[{"Exp", "[", 
            RowBox[{
             RowBox[{"tildeg12", "[", 
              RowBox[{"0", ",", "0"}], "]"}], "*", "L", "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"\[Xi]12", "[", 
                 RowBox[{"0", ",", "0"}], "]"}], 
                SuperscriptBox[
                 RowBox[{"Abs", "[", "E01", "]"}], "2"]}], "-", 
               SuperscriptBox[
                RowBox[{"Abs", "[", "E02", "]"}], "2"]}], ")"}]}], "]"}]}]}], 
         RowBox[{
          SuperscriptBox[
           RowBox[{"Abs", "[", "E02", "]"}], "2"], "-", 
          RowBox[{
           RowBox[{"\[Xi]12", "[", 
            RowBox[{"0", ",", "0"}], "]"}], 
           SuperscriptBox[
            RowBox[{"Abs", "[", "E01", "]"}], "2"]}]}]], "]"}]}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"\[Delta]30", "=", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Abs", "[", "E03", "]"}], "<", 
         SuperscriptBox["10", 
          RowBox[{"-", "15"}]]}], "&&", 
        RowBox[{
         RowBox[{"Abs", "[", "E04", "]"}], "<", 
         SuperscriptBox["10", 
          RowBox[{"-", "15"}]]}]}], ",", "0", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "I"}], " ", 
         RowBox[{"Log", "[", 
          FractionBox["E03", 
           RowBox[{"Abs", "[", "E03", "]"}]], "]"}]}], "+", 
        RowBox[{
         FractionBox["1", 
          RowBox[{"2", 
           RowBox[{"(", 
            RowBox[{"1", "+", "\[Chi]e"}], ")"}]}]], 
         FractionBox[
          RowBox[{
           SuperscriptBox["maxion", "2"], "-", 
           SuperscriptBox["\[CapitalOmega]", "2"]}], 
          RowBox[{"\[Gamma]m", "*", "\[CapitalOmega]"}]], 
         RowBox[{"Log", "[", 
          FractionBox[
           RowBox[{
            SuperscriptBox[
             RowBox[{"Abs", "[", "E04", "]"}], "2"], "-", 
            RowBox[{
             RowBox[{"\[Xi]34", "[", 
              RowBox[{"0", ",", "0"}], "]"}], 
             SuperscriptBox[
              RowBox[{"Abs", "[", "E03", "]"}], "2"]}]}], 
           RowBox[{
            RowBox[{
             SuperscriptBox[
              RowBox[{"Abs", "[", "E04", "]"}], "2"], 
             RowBox[{"Exp", "[", 
              RowBox[{
               RowBox[{"tildeg34", "[", 
                RowBox[{"0", ",", "0"}], "]"}], "*", "L", "*", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"\[Xi]34", "[", 
                   RowBox[{"0", ",", "0"}], "]"}], " ", 
                  SuperscriptBox[
                   RowBox[{"Abs", "[", "E03", "]"}], "2"]}], "-", 
                 SuperscriptBox[
                  RowBox[{"Abs", "[", "E04", "]"}], "2"]}], ")"}]}], "]"}]}], 
            "-", 
            RowBox[{
             RowBox[{"\[Xi]34", "[", 
              RowBox[{"0", ",", "0"}], "]"}], 
             SuperscriptBox[
              RowBox[{"Abs", "[", "E03", "]"}], "2"]}]}]], "]"}]}]}]}], 
      "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"\[Delta]40", "=", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Abs", "[", "E03", "]"}], "<", 
         SuperscriptBox["10", 
          RowBox[{"-", "15"}]]}], "&&", 
        RowBox[{
         RowBox[{"Abs", "[", "E04", "]"}], "<", 
         SuperscriptBox["10", 
          RowBox[{"-", "15"}]]}]}], ",", "0", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "I"}], " ", 
         RowBox[{"Log", "[", 
          FractionBox["E04", 
           RowBox[{"Abs", "[", "E04", "]"}]], "]"}]}], "-", 
        RowBox[{
         FractionBox["1", 
          RowBox[{"2", 
           RowBox[{"(", 
            RowBox[{"1", "+", "\[Chi]e"}], ")"}]}]], 
         FractionBox[
          RowBox[{
           SuperscriptBox["maxion", "2"], "-", 
           SuperscriptBox["\[CapitalOmega]", "2"]}], 
          RowBox[{"\[Gamma]m", "*", "\[CapitalOmega]"}]], 
         RowBox[{"Log", "[", 
          FractionBox[
           RowBox[{
            SuperscriptBox[
             RowBox[{"Abs", "[", "E04", "]"}], "2"], "-", 
            RowBox[{
             RowBox[{"\[Xi]34", "[", 
              RowBox[{"0", ",", "0"}], "]"}], 
             SuperscriptBox[
              RowBox[{"Abs", "[", "E03", "]"}], "2"]}]}], 
           RowBox[{
            SuperscriptBox[
             RowBox[{"Abs", "[", "E04", "]"}], "2"], "-", 
            RowBox[{
             RowBox[{"\[Xi]34", "[", 
              RowBox[{"0", ",", "0"}], "]"}], 
             SuperscriptBox[
              RowBox[{"Abs", "[", "E03", "]"}], "2"], 
             RowBox[{"Exp", "[", 
              RowBox[{
               RowBox[{"-", 
                RowBox[{"tildeg34", "[", 
                 RowBox[{"0", ",", "0"}], "]"}]}], "*", "L", "*", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"\[Xi]34", "[", 
                   RowBox[{"0", ",", "0"}], "]"}], " ", 
                  SuperscriptBox[
                   RowBox[{"Abs", "[", "E03", "]"}], "2"]}], "-", 
                 SuperscriptBox[
                  RowBox[{"Abs", "[", "E04", "]"}], "2"]}], ")"}]}], 
              "]"}]}]}]], "]"}]}]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"E01L", "=", 
     RowBox[{
      RowBox[{"Sqrt", "[", 
       RowBox[{"E01sq", "[", 
        RowBox[{"L", ",", "0", ",", "0"}], "]"}], "]"}], "*", 
      RowBox[{"Exp", "[", 
       RowBox[{"I", " ", "\[Delta]10"}], "]"}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"E02L", "=", 
     RowBox[{
      RowBox[{"Sqrt", "[", 
       RowBox[{"E02sq", "[", 
        RowBox[{"L", ",", "0", ",", "0"}], "]"}], "]"}], "*", 
      RowBox[{"Exp", "[", 
       RowBox[{"I", " ", "\[Delta]20"}], "]"}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"E03L", "=", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"E03", "==", "0"}], "&&", 
        RowBox[{"E04", "==", "0"}]}], ",", "0", ",", 
       RowBox[{
        RowBox[{"Sqrt", "[", 
         RowBox[{"E03sq", "[", 
          RowBox[{"L", ",", "0", ",", "0"}], "]"}], "]"}], "*", 
        RowBox[{"Exp", "[", 
         RowBox[{"I", " ", "\[Delta]30"}], "]"}]}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"E04L", "=", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"E03", "==", "0"}], "&&", 
        RowBox[{"E04", "==", "0"}]}], ",", "0", ",", 
       RowBox[{
        RowBox[{"Sqrt", "[", 
         RowBox[{"E04sq", "[", 
          RowBox[{"L", ",", "0", ",", "0"}], "]"}], "]"}], "*", 
        RowBox[{"Exp", "[", 
         RowBox[{"I", " ", "\[Delta]40"}], "]"}]}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"GainsFactor", "=", 
     RowBox[{"tildeg", "*", "L", "*", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"\[Xi]12", "[", 
          RowBox[{"0", ",", "0"}], "]"}], "*", 
         SuperscriptBox[
          RowBox[{"Abs", "[", "E01", "]"}], "2"]}], "-", 
        SuperscriptBox[
         RowBox[{"Abs", "[", "E02", "]"}], "2"]}], ")"}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"\[Delta]1L", "=", 
     RowBox[{
      RowBox[{"-", "I"}], " ", 
      RowBox[{"Log", "[", 
       FractionBox["E01L", 
        RowBox[{"Abs", "[", "E01L", "]"}]], "]"}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"\[Delta]2", "=", 
     RowBox[{
      RowBox[{"-", "I"}], " ", 
      RowBox[{"Log", "[", 
       FractionBox["E02", 
        RowBox[{"Abs", "[", "E02", "]"}]], "]"}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"AppendTo", "[", 
     RowBox[{"Reflectance1", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"\[CapitalOmega]", "-", "maxion"}], ")"}], "*", 
         SuperscriptBox["10", "3"]}], ",", 
        FractionBox[
         RowBox[{"Abs", "[", "E1r", "]"}], "E1a"]}], "}"}]}], "]"}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"AppendTo", "[", 
     RowBox[{"Transmittance1", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"\[CapitalOmega]", "-", "maxion"}], ")"}], "*", 
         SuperscriptBox["10", "3"]}], ",", 
        FractionBox[
         RowBox[{"Abs", "[", "E1t", "]"}], "E1a"]}], "}"}]}], "]"}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"AppendTo", "[", 
     RowBox[{"Reflectance2", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"\[CapitalOmega]", "-", "maxion"}], ")"}], "*", 
         SuperscriptBox["10", "3"]}], ",", 
        FractionBox[
         RowBox[{"Abs", "[", "E2r", "]"}], "E2a"]}], "}"}]}], "]"}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"AppendTo", "[", 
     RowBox[{"Transmittance2", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"\[CapitalOmega]", "-", "maxion"}], ")"}], "*", 
         SuperscriptBox["10", "3"]}], ",", 
        FractionBox[
         RowBox[{"Abs", "[", "E2t", "]"}], "E2a"]}], "}"}]}], "]"}], ";"}]}], 
  "\[IndentingNewLine]", "]"}]}], "Input",
 CellChangeTimes->{{3.9367069594542627`*^9, 3.9367069614337015`*^9}, {
   3.9367070765801215`*^9, 3.9367071136919937`*^9}, {3.9367071806789155`*^9, 
   3.936707284230604*^9}, {3.9367073333593006`*^9, 3.936707333561989*^9}, {
   3.9367074043169603`*^9, 3.93670742273699*^9}, {3.936707526749279*^9, 
   3.936707539934867*^9}, {3.936707630824576*^9, 3.9367076500792513`*^9}, {
   3.9367080140003195`*^9, 3.9367080305671344`*^9}, 3.938689829752509*^9, 
   3.938689876209446*^9, {3.9386902333809423`*^9, 3.9386902396212764`*^9}, {
   3.938690290511137*^9, 3.9386902914211035`*^9}, {3.9386915632369127`*^9, 
   3.9386915774691143`*^9}, {3.9386944043344717`*^9, 
   3.9386944046018696`*^9}, {3.9386953032337427`*^9, 
   3.9386953069239273`*^9}, {3.9386982686180816`*^9, 3.938698269055683*^9}, {
   3.9386982998823967`*^9, 3.9386982999557877`*^9}, {3.9386997389456306`*^9, 
   3.9386997468456717`*^9}, {3.9387036263703575`*^9, 3.938703626437197*^9}, {
   3.93870410996902*^9, 3.9387041371990614`*^9}, {3.939386551025341*^9, 
   3.939386572087412*^9}},ExpressionUUID->"7a2eb5bf-4201-4a7c-8151-\
59ac72159b54"],

Cell[BoxData[
 TemplateBox[{
  "General", "munfl", 
   "\"\\!\\(\\*RowBox[{\\\"Exp\\\", \\\"[\\\", RowBox[{\\\"-\\\", \
\\\"730.8880691573129`\\\"}], \\\"]\\\"}]\\) is too small to represent as a \
normalized machine number; precision may be lost.\"", 2, 119, 30, 
   30661157064733445787, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.936707335580912*^9, 3.936707425630888*^9, 
  3.9367075482092905`*^9, 3.9367076653634005`*^9, 3.9386929412173686`*^9, 
  3.9386944070916867`*^9, 3.938695307541795*^9, 3.938699283320835*^9, 
  3.938699753259925*^9, 3.938703627117976*^9, 3.9392982842167635`*^9},
 CellLabel->
  "During evaluation of \
In[113]:=",ExpressionUUID->"e6acdcec-370b-463a-a9e1-76099b665d28"],

Cell[BoxData[
 TemplateBox[{
  "General", "munfl", 
   "\"\\!\\(\\*RowBox[{RowBox[{\\\"-\\\", \\\"1.1065498599712968`\\\"}], \\\" \
\\\", \\\"2.12854925263634327337075634646`15.954589770191005*^-318\\\"}]\\) \
is too small to represent as a normalized machine number; precision may be \
lost.\"", 2, 119, 31, 30661157064733445787, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.936707335580912*^9, 3.936707425630888*^9, 
  3.9367075482092905`*^9, 3.9367076653634005`*^9, 3.9386929412173686`*^9, 
  3.9386944070916867`*^9, 3.938695307541795*^9, 3.938699283320835*^9, 
  3.938699753259925*^9, 3.938703627117976*^9, 3.9392982842283783`*^9},
 CellLabel->
  "During evaluation of \
In[113]:=",ExpressionUUID->"0d3d64c6-73d7-4d4f-ba7f-6b415f103db4"],

Cell[BoxData[
 TemplateBox[{
  "General", "munfl", 
   "\"\\!\\(\\*RowBox[{\\\"Exp\\\", \\\"[\\\", RowBox[{\\\"-\\\", \
\\\"730.8880691573129`\\\"}], \\\"]\\\"}]\\) is too small to represent as a \
normalized machine number; precision may be lost.\"", 2, 119, 32, 
   30661157064733445787, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.936707335580912*^9, 3.936707425630888*^9, 
  3.9367075482092905`*^9, 3.9367076653634005`*^9, 3.9386929412173686`*^9, 
  3.9386944070916867`*^9, 3.938695307541795*^9, 3.938699283320835*^9, 
  3.938699753259925*^9, 3.938703627117976*^9, 3.939298284241082*^9},
 CellLabel->
  "During evaluation of \
In[113]:=",ExpressionUUID->"6bbc6afe-f6ab-44e1-9a65-e4fa70fbfd3c"],

Cell[BoxData[
 TemplateBox[{
  "General", "stop", 
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"", 2, 119, 33, 30661157064733445787, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.936707335580912*^9, 3.936707425630888*^9, 
  3.9367075482092905`*^9, 3.9367076653634005`*^9, 3.9386929412173686`*^9, 
  3.9386944070916867`*^9, 3.938695307541795*^9, 3.938699283320835*^9, 
  3.938699753259925*^9, 3.938703627117976*^9, 3.9392982842508893`*^9},
 CellLabel->
  "During evaluation of \
In[113]:=",ExpressionUUID->"09820d19-f35e-4739-94c8-23126091d6f0"],

Cell[BoxData[
 GraphicsBox[{{}, {{}, {}, 
    {GrayLevel[0], PointSize[
      NCache[
       Rational[1, 120], 0.008333333333333333]], Thickness[0.0075], 
     LineBox[CompressedData["
1:eJxFWXlcTVsUVgjPTGZSqTQaU0lZQoWKkiEzpVBeRKJIA2XMo6I0p0GlkibN
q3kgU0UqY4gytG8zUm/fc+497j/39/32Peees/da37fWt6TMD623FB0wYECn
yIAB/O/rN/mfChSvsTMNnE5gi3NiurlLBX71fTn8BcUj9xRVK1lWIEwtOTF2
BoFnK1+SjjUVGBowPdiIYk/57yPz5lWgxZzqkxcpXjNCVOncxAqMVPo2qZxi
MTJxlXFvOUaddbIXkyBQSO82pbEcpyqE++pSfPr+MvfGsnIcZ+1z0oNizcCN
oXcSyrFg93XlUoq7Tlvn2PuUo45Zb9yQmQSyzF3qtB3LcZfm3F+rKbbV8+0S
21WOp/ujZ3hRvEAxdvzTleVYJtU6+RnFn+nT3VQsx+Tx0a0TJAnc4VUZmY8p
x5+ZzlHbKN73/LO1UlcZLmxesvQWxbMye891NJThsM9Zuc0Uvw0aG5VbUIZm
rc2zF0gRCHSVK/S8XYbquY9cT1K8ee+St+u8ynDSZLfKEoqn0bedfLQMZ1gu
Gj1WmsAT/uualWGj1kKjHRT7jHZSu7O0DGMGN1yMo3hV+xVTe5ky3OwdVdlD
8YjaiMPa/5Th3FKZSatmESjPyvASI6UYpT3okD/FZ0MexT15XopGvcPqminm
755/dimqSU7aqiVDoMOy++Oe8FIsDJDv/o/ijNX8AynFPa2b0z5SbK8iNbPj
YClO7mm4qSlLYN5YNa3c9aW4MWlY3DWKv3es2eKpUYoTxDZ+bab43stdDusk
SjH1nonFCjkClvQ0Jg8qxcviqZNCKFYIu5D0vrkEn0msH/WL4tdn+A9YgqFa
MkabZxMI35fScjStBF+u0atPo3iHQfkQ7cASrPLpyZ4gT2DK3NcyYm4laFwT
1uNA8fNxbTpPrEqwZ9XDG3UUe9PT9TcswbBipWBtBQJr66ed2rOgBJ8/CRkX
QfE4/vFOpviZYt8wRQKl4brp7X+K0WOFyL4jFF/02Fqd86EYXb65bHhF8dID
h4hHRTEOVVrwWF+JgKjR2ZHr7hbjY72qhlSKmdtdL8atT9Z4zFIm4CSeqP/e
qRi3iWVU+VCs1lO4N253MRptOlA5WIVAe0Ot21G9Ypz+otHJkeK7+C1ES7kY
J9S/afpB8dEIkZzB44qxynvdFKs5BGafm1j3uLsIfbJ2T3tL8VcafX6vi/C2
iWPXlrkEQtcuG7+nqAg9rLVTX1BssWDjPMXYIpwldnXnxnkEZk60Nmq/UoSa
Itf7n1Pc8JOfIEW4fHxKuNl8Av6vfc55bC3C1LfX172meENBTOTaZUW4c+o8
8b0LCIyh0TxJrgjzMffXN4przle9eTe8CH/vKR11YiGB8wc//47lFaL1pZnb
B6sSMOSHc20hJqu3/vCleIAqP2AKUXtvYrXcIgI5k+RMB0cUokym0qRsil1/
ax5+fL4Q/Q2ulJqoEVhEs8PPthCLncxaWyj+yd++DYVo+8U61FOdQEK0Y5mC
ZiE6XxnySUaDgN3FKx/bZhbijbaaxyUUq9jyN7AQFzm+tzmwmECzSYaEx9cC
DKqLfjhak0DUokdL1j4rwEGpI/syKN5Ds23S/QK8ZWA33nIJAYk/XcfeBRXg
QKuI6eJaBN6/G+4T616AXiZEsZTiG8WSSUf2F2Cu+Czjk9oEtsbwb1iAsuUX
QhYuJTDq8pqWQaoF+Hv6L/lWiqsO7RryeEoBrh73QjQRCPCz168/H8Uaxiw7
vIzyn/oFnd2f8nFi98LORTqU/6aF7FR4mI9v3Paq91Nc2Jd8si0pHyMy9k+v
XE7AhZ++N/IxIDshK2gFgeWlr9LOnspH2ctGCnYrCXTH8gkrH20MJriu1iWQ
7cVn1HxUzblUK6tH4JDdtJHvVPLRcHjPKjF9Agv54TI+H1+/3/+jheI3zIYi
birJbqxeRWDT4tRyhzzEsPJInYLVlJ8GvBEddhExzTt9dsoaAvr89NyImJln
nRxrQAD/m39cRQpxWoDigChDur552z38locWumbzoowIJNHTMMnIw3QtM4u4
tQQ0mhJlP57JQy2jwKzUdQTCEvgEkoeD/sSYFRsTmHxMNGDotDxUsVHcU2dC
17WUawKacvFmYmdP+3oCwwZtGqWSnIt5mVP0xDcQuPbQZRU65+LOBy2HNDcS
+OUd626yOhfjDo4OtdpEwI2f3uK56DDlyh//zXRdin/gOfj0eEP6MzMCR5rl
5g+Nz8GANc3dY7YSaEkytgk4noPHxqu1btpG1084RSmvyMES+9eVEdtpPkHk
27xROTh3R2xh9w4C5vS0TeqzMWCIzCDTXQQePu42/RCVjVYNcaVpuwmY3pC6
cswuG+cvdteRNKfrDMFlo7NOS4K3BYGVsvwXzkaJCFX9kZY0X/j0UJOFBq4N
a65aEVDlH0doFq5xutkzbT+BeBodxjZZaNfh7p10gK6vmP61US0L14VJ7lhr
QyD4Hz16xyxca3UptPMgAVkmIDMxJ+9CRLQtAS9GzzNxybXEtD2HCUxg9DsT
l95zlJ19hK4zep2JlmOcdLuPCvU5A5Py7Wyqjgn1OAN9G0+SjONC/c3AoCDV
+XcchXqbgW5aH7xiT9J1Rl8z0CEi2jrVmcAuRk/v41zpyLmVLlR/Gf28j/Jf
NVbz3AisY/TyPuasnCMvc5ZALaOP93HdbaJj6UnAmNHD+zi6u2JM2nmh/qVj
3fCZ4uKXhHqXju9yk566exGIZfQtHWfde/dU5KpQz9JRXOJX5DVvus7oVzre
qD/9YcF1AlKMXqVhessJhSY/AjcZfUrDk01Pp8YHUD1h9CgN4VysuUcw1Q9G
f9JwY1p+ypEwod6koduxF+X2EVQfGH1JRZ/pUy0vRwv1JBVN1EM2ZMUSsGH0
IxUtg6sP9scL9YL+fs4Ir+1JdJ3Rh1S8VTQ4tCqFwAdGD1IwtsnZz/w+gW0M
/6fg+LbHDiOz6TrD9ykYp+O3uiaP8jPD7yn4c46NQkahkM9T8GSYt3ZWKQEt
hr+TMaG/KrvhAYFihq+T0dVTr3nGE7rO8HMy7qnWmeZeTSCN4eNkjKxflTHs
pZB/k3HWJvHF6a+EfHsP1VpjFC68F/LrPXxy3E3xbBNdZ/j0Hi6MeMSL+Srk
z3voUllq+JNQvmX4Mgl3O06XOt5FoG8qnx+T8Ly1k61ML60nGT5Mwvh5isYD
RXnQz/BfEh6wquqbMJQHxxm+S8L0+o1VO0fxBPx2Fz/Mfr7inThPwGd3sd/y
eWvQNJ6Av+6i6Nsr/n7SdJ3hq0T0aLKSr1bgCfgpEW+o+aeun8+DawwfJaD9
8ZGuUxbzwI3hnwT0fG/Xp6jDgyMM3yRg8aJTtRdX88Cd4Zd4XBZ0okVrPQ9M
GT6Jx7HrJq7X3cYT8McdzDM9vT9mLw9UGb64g+afMh5a2/IE/HCH1kP7zK+d
4An4IA5Hna3fLXWGBzJM/sfhs/BzayWv8GACk++xuKW3ZbjvTR6IMfkdi2XN
tS/do3jQ1crP5xj80bJ8W/s9uu7Cz98YFAu5HP0tjwe1TL7GYOv6TSscKnlQ
zuTnbfwt2qzuX8+DDCYfKXZRH7utmQcxTP5Fo/z1s9/Kenjwksm3aFQ7l+b2
ZWgbXGTyKxpFH5rNKZvSBhlMPkWh0Yt9IoeU2sCayZ8o9DxXUfZVuw0CmHyJ
xCmB/lPWmNDrmfyIxF9Nc/b7WbaBE5MPkVi/pW1Eo1Mb2DDxH4GjXzaYLb7W
BtuZeI9A+9uxkQkxbYL65BYmvo7eY1zQJojnW2h4v0lRtaFNEL+3MHpHyYuD
XW2CeA3HzBLb86PHtwviMxzXqU0qWDC/XRCPYXguy+HwD+N2aGXiLwyHavUM
3H6kHZCJt1CM//7x6I3r7RDGxFco+kZEGGVltYMbE08hmDL4S+an9+1gzsRP
MLrss3TWGN4BK5h4CcJNrsvbqtU6QIaJj0B8vFqmp35vBwxm4iEQh/1Rfml3
vQOalvPPPwCjOvOm5JV3QNlu/nnfxNna81c29XWALHO+/ijW/u38WI1OuMCc
px++qgo33mffCZ+Z87uBRpUHokaldoIBc143cNWiuiMq3Z0Qy5zPdRzoouD7
WbtLcB6+mBzYd3vH+S7B/vugvO6rsDsvugT77Y05GlbDPst3C/bXG0N+Lu6Y
7tIt2M9r2OH29uq6um7B/l1Fj6ObzI+q9wj26z8UGeE9+eDNHsH+eOEAHfUJ
w/p7BPtxCb2kLyWI7P8peP+LaKjfqc+r/gkxjB6dR2nrYnfT5b/Amnk/T/Q6
5xnhmvwLlJn38cC92dPC42b9hh/z+c9/BiULkpUbfH9D0r/853VH3aUSyu2D
euFgHP/5XPEfck4i/kgv7H/Afx5nbH36803gq154x+SfE570l5NeovMHDmfy
/88BW4wmfvgR8ge+MPtzFJdvUEwV7/gjuN9hPGy3P2As9Amut8bztz+h+ek+
we8t8LdKVXtiknB9Ky7Xs4mrrRHiNehcd2bE0JY+GCD4NKSb3stv5dahz9ii
/s0n7no4pBJ0NKSSuz8UZg+5dSOS+39YUNundc+2T/h8MGrFq9ESysLfH4XA
Ha5SK978gb3ZzPvBkinltnc8/wjfH3REpp/plPsD2yuZ/QH3Gj2Vonxu/+DB
2Okr72zsFe4vHDvSM2HOZ27/aZ93ozTe4TfIdTPnAxOztXwsBv8W/J8ntGw6
nmPl+0t4viD3dm5SuMwv4flDDK/sT236T5AYysQHHF/6I/C2wU/B83iB0sre
MZc/cPEFAwevlGg83SOMP7g0WjX864weYXyCXMDHQ9X5XPyCxJv7Q+7t6xbG
N3wW1W+/NK5bGP8wVensy50FXH7Ah4R6+an2XcL8gbWzHY5GK3ZBOZtfENMg
tbPpI5d/YFdSbZBxqxPEgpn8hIKSLZndFp3C/IV/YmdsOS3fKcxviJxS2yVD
uPyHyo9uSsVZHeDO8gM83b2oWfV8B4Sz/AHKFlGfjM04fgHTZM3mNsUOIf+A
1L+vh3T3c/wEe1zLyjRr22HGVYa/YPuYQZrBSe2gdYThNxi4IXJI/yWO/yAz
QNFh+QGOH6GkT93SYBXHn7CzUU6/X74dtrP8ChHPmifoDm8X8i/0lOnoDm7l
+BnUZsulKNRw/A2aqv/4BWdx/A7pvR6HjW5x/A9PH1R0yl3i9AGSnRVFpxzj
9AP6Fot4jN/N6QvYDRtmN8SQ0x8oOmwW36TB6ROA5HCRSLk2wXlFw1mVmFEL
J7QJ9Q1OGRhonR/UJtQ/GN/sfce/g9NHOJhgorz1E09wnrchcmn/vKIXPJg4
itFXeHWgsehBOQ+amHiOAcdT30/tz+b0GT6XrTzhm8jpN5BSKyP9WzzYwOo7
+Eh9F3O6wek/2KS8nip3iasP4O03dwtdV65+gA+9hZOrjvEE/cgdOODzvaLU
hqs/wMasZ7OEOU/Q78TDhevSpNqMq1/gZGeP2Id1tP5h6xvIvpVsqq/PE8RP
Aug7vH/Yu5QHSWx9BN8MDoX2q/Egn62f4ERHo6rhXK6+AoWgz7JvZ9P6jK2/
YGrtWK00SXo9W5+Ba/3rfx9O4UEfW7+BZ3Zjg8R4Hniy9R18fqn2OH4ED0Yx
/JIEzg0iyUfEaP3H1odwpE9jku0AnrB+hOFe7olBvwhEs/UlyKC2fm8HrV/Z
+hMcTOMfXWwV9vv34NOJJav1Wrj6FXilzfXKn7j6Ft7MK8/Wekfra7b+hQVi
vkvsG7j6GOwW78dnL7j6Gbr0zuabVnH1NViozX7Y80jonySDrREVlQquPgd1
uVDP6BIiiPcUMOkIi4ov4Op7+FKXFPM0lwjiPwXOrVxxcGwWvZ7tDyBkm2H9
v+lEkA+poBjs0fwxmfYfr5j+Avxe5gUdu0sE+ZEKdTmLRWfS/qPNkOlPoGbt
6IXvYrj+Bfr8QtZnRNH+iO1vwLFj4JXoW0TAb2kgech/Wlwo1x9Bd+QJzcIg
rn+C3uRxC37c5PorUMnKMlGh/RWbX+ng5qVLTvvS/o7tzyBMNtam8ZrQn0wH
61O35Df/x/V3cM1xt/ery1z/B6KhC6ceucj1h3BGYbn6pPNc/wjzdy2zeuhB
+0+2vwT5B8oKV85w/SeMlh4zZBftP23Z/hS23cm/pO3C9a8gVhujr0D719Ns
fwsZ5OoTKdrfsvVzBrTG2+TI0f73Ctsfg4+N7B11fn/M5HMGrBdz0NrA75/Z
/hp8B6WJn6L9tSzbf8N/Y5MaEu1of8/259DhfUbr2yEiqOczQUbn2KeFtlx/
D5cinp7zoP39Srb/h4KNJbXvrAlUsv4A3P+td1n3AOcfQE3lj50p+zh/AUxD
3wxXtOL8B8CdUSaxezl/ApzqZHjzLDj/AsKrTiTk7yHQwPobUKD31sBsN+d/
QFBVuE/3TgItrD8CWcoD1obs4PwTeHZrmp7hdgK/WH8FbL0+rBLZRgT8kgN1
8aKyuVsIDJNm/BkYbPEozoXvz7D+DbzKmxe/ajPn78CGtbd6J20iEMb6P9AS
P8bu+wYC8qw/BE+Ka96WmxJBv5YLLzIjJOPWc/4SOBxzG3HNhAj4KQ8qH6Y4
OxsT0Gf9Kfg4P33doXVEwFd5sKxPZZcV379i/S1wVH57wdyI87/gVXB4ooUh
549BzNNNCQcMCPxg/TMwGPrOyn4N56/ByPfiuWdWc/4bSK/J8vZbxflzdN3x
4V19IuC7fPgSW2dQqcf5ezBEUvXnN10i6H/zoSYgKXOsLucPQr+olr3mSmG/
nA8ra9zG7FtBr2f9RZi7/5OD33Laf7P+I5z3PHn1oQ6B9aw/CZoag/QH6gj7
8XxIrvt4dukyAg9YfxOKD0gvcgbKj6z/CUfGbV+BS2k8sP4oNH8pCRy0VNjv
F4BB4ywlI20C9ay/CuRX8Rt/Lc5/hUdepyM/L+H8WRhef9t6McVprH8LYakT
JK9ocv4uSO6dmPppMef/QmPkvxOXLeb8YcipNlYP1qB8y/rHUKRtMeSPOucv
wx6f5OO71IX8XAgGzimOxWqcPw19Jkv7ldSEfF0IOi2Xfl1fRKBnIeNvg7PP
gp2iizj/G0IlZs2wUyVwlfXHYf8/0YqNCzn/HH6UmTltpHgy66+D0WSlAQ8X
CP2ZIrjmvj1pOcWhrD8PCe8cXXLmC/m+COpFt5lrUDyb9fdhxn7JtenzhP5P
EZwYPl9DbR43H4DElRoTM+YSaGfnB9CePevNEorV2fkC1ByS8iyYI/SXisG2
MnjQ6jncfAIuVesYV/2dX0DVBt6uHRTrsfMNMF9Uodjyd/4B/5bOiDmhzM1H
YKyi45Ohytz8BPpKbvoHKNHr2fkKWBcd/q2ixM1fID5QkhQqEnjMzmdg7r3f
tlsUufkNLO5wP8xToPnDzncoD+z9flFB6L+VQEqq0xtZil+z8yHQggdahfJU
b9j5EbyLdhPZTbElO1+CV2Xdsv2zhfpUAv9WxEWEzubmU/B0GNjrUDyfnV/B
3PGnr32UI2DPzrfgpf/GzvNyQv+wFO6eenFzjhw3HwOHVwsdn/+dn0GUXKGX
M8Vn2fkaXFbreiZHcTk7fwOP43uXPZMh0MvO50BkdH71KRlufgf9I+o9FWS4
+R4MjAjbUDuL6hs7/4OJeyQ0PGdx80GIPOGorDZLqIdlID24Xfnz3/kiqGxt
Ur0pLdTHMvi2qRwMpbn5JGTlya0eIC3UyzIIvHHbME2KQAQ734Tgc0P1bKSE
+lkGj3Ul5kvz55vsfBTu/q4eVi8p1NMyGJClWOlNcTI7X4X8rxr2hpJCfS0H
mccKfWIUK7LzWQj6pmVV+Hd+C55hJTGnKS5k57vg56tYuGSmUH/L4bnBp8Sf
f+fD8P2Om03G3/kxdF8M7jj+d74MZsu+6GlIcPNnqNKQ3vXz73wavL2ma2bP
EPrhFSAVklHj/He+DZDwWUlnhtA/r4CtrnFag2dw83GoFBk76MF0qtfs/Bz8
Pi12+Y/i/wFqUBe1
      "]]}, 
    {RGBColor[1, 0, 0], PointSize[
      NCache[
       Rational[1, 120], 0.008333333333333333]], Thickness[0.005], 
     Dashing[{Small, Small}], 
     LineBox[{{-0.19999999999999996`, 1.}, {0.20000000000000018`, 
      1.}}]}}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox[
     TagBox[
      StyleBox["\"\[CapitalOmega]-m\"", 32, StripOnInput -> False], HoldForm],
      TraditionalForm], 
    FormBox[
     TagBox[
      StyleBox["\"|t|\"", 32, StripOnInput -> False], HoldForm], 
     TraditionalForm]},
  AxesOrigin->{0, 0.9481370346978725},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->600,
  Method->{
   "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->{{-0.19999999999999996`, 0.20000000000000018`}, {
   0.9481370346978725, 1.933533375438336}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic},
  TicksStyle->Directive[28]]], "Output",
 CellChangeTimes->{3.936707288521201*^9, 3.9367073600398855`*^9, 
  3.9367074511802163`*^9, 3.936707604130978*^9, 3.9367079754300137`*^9, 
  3.938693226855235*^9, 3.938694700558638*^9, 3.9386956164323616`*^9, 
  3.9386996947733765`*^9, 3.938700110655173*^9, 3.9387040291581078`*^9, 
  3.939298636647974*^9},
 CellLabel->
  "Out[121]=",ExpressionUUID->"6b0f652c-6bde-4236-9aa2-be73cd404827"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"NAResonanceTran", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"1.8", "-", "2"}], ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"2.2", "-", "2"}], ",", "1"}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"ListLinePlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"Transmittance2", ",", "NAResonanceTran"}], "}"}], ",", 
   RowBox[{"PlotStyle", "->", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Thickness", "[", ".0075", "]"}], ",", "Blue"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Dashed", ",", "Red", ",", 
        RowBox[{"Thickness", "[", ".005", "]"}]}], "}"}]}], "}"}]}], ",", 
   RowBox[{"AxesLabel", "->", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Style", "[", 
       RowBox[{"\"\<\[CapitalOmega]-m\>\"", ",", "32"}], "]"}], ",", 
      RowBox[{"Style", "[", 
       RowBox[{"\"\<|t|\>\"", ",", "32"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"TicksStyle", "->", 
    RowBox[{"Directive", "[", "28", "]"}]}], ",", 
   RowBox[{"ImageSize", "->", "600"}], ",", 
   RowBox[{"PlotRange", "->", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", ".215"}], ",", ".215"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{".95", ",", "1.95"}], "}"}]}], "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.9386915850093393`*^9, 3.938691596136397*^9}, {
   3.93869419523604*^9, 3.938694203515355*^9}, {3.9386942689954424`*^9, 
   3.938694269304882*^9}, {3.9386942997120523`*^9, 3.9386943133624797`*^9}, {
   3.93870414453106*^9, 3.9387041455514593`*^9}, {3.9392982792846203`*^9, 
   3.9392982805257616`*^9}, {3.9392984671718464`*^9, 3.939298467264969*^9}, {
   3.9392986569580684`*^9, 3.939298678012686*^9}, 
   3.9393865876694965`*^9},ExpressionUUID->"70f83c55-925e-4b89-942d-\
5e575a9c3de8"],

Cell[BoxData[
 GraphicsBox[{{}, {{}, {}, 
    {RGBColor[0, 0, 1], PointSize[
      NCache[
       Rational[1, 120], 0.008333333333333333]], Thickness[0.0075], 
     LineBox[CompressedData["
1:eJxFWXlcTVsUVgjPTGZSqTQaU0lZQoWKkiEzpVBeRKJIA2XMo6I0p0GlkibN
q3kgU0UqY4gytG8zUm/fc+497j/39/32Peees/da37fWt6TMD623FB0wYECn
yIAB/O/rN/mfChSvsTMNnE5gi3NiurlLBX71fTn8BcUj9xRVK1lWIEwtOTF2
BoFnK1+SjjUVGBowPdiIYk/57yPz5lWgxZzqkxcpXjNCVOncxAqMVPo2qZxi
MTJxlXFvOUaddbIXkyBQSO82pbEcpyqE++pSfPr+MvfGsnIcZ+1z0oNizcCN
oXcSyrFg93XlUoq7Tlvn2PuUo45Zb9yQmQSyzF3qtB3LcZfm3F+rKbbV8+0S
21WOp/ujZ3hRvEAxdvzTleVYJtU6+RnFn+nT3VQsx+Tx0a0TJAnc4VUZmY8p
x5+ZzlHbKN73/LO1UlcZLmxesvQWxbMye891NJThsM9Zuc0Uvw0aG5VbUIZm
rc2zF0gRCHSVK/S8XYbquY9cT1K8ee+St+u8ynDSZLfKEoqn0bedfLQMZ1gu
Gj1WmsAT/uualWGj1kKjHRT7jHZSu7O0DGMGN1yMo3hV+xVTe5ky3OwdVdlD
8YjaiMPa/5Th3FKZSatmESjPyvASI6UYpT3okD/FZ0MexT15XopGvcPqminm
755/dimqSU7aqiVDoMOy++Oe8FIsDJDv/o/ijNX8AynFPa2b0z5SbK8iNbPj
YClO7mm4qSlLYN5YNa3c9aW4MWlY3DWKv3es2eKpUYoTxDZ+bab43stdDusk
SjH1nonFCjkClvQ0Jg8qxcviqZNCKFYIu5D0vrkEn0msH/WL4tdn+A9YgqFa
MkabZxMI35fScjStBF+u0atPo3iHQfkQ7cASrPLpyZ4gT2DK3NcyYm4laFwT
1uNA8fNxbTpPrEqwZ9XDG3UUe9PT9TcswbBipWBtBQJr66ed2rOgBJ8/CRkX
QfE4/vFOpviZYt8wRQKl4brp7X+K0WOFyL4jFF/02Fqd86EYXb65bHhF8dID
h4hHRTEOVVrwWF+JgKjR2ZHr7hbjY72qhlSKmdtdL8atT9Z4zFIm4CSeqP/e
qRi3iWVU+VCs1lO4N253MRptOlA5WIVAe0Ot21G9Ypz+otHJkeK7+C1ES7kY
J9S/afpB8dEIkZzB44qxynvdFKs5BGafm1j3uLsIfbJ2T3tL8VcafX6vi/C2
iWPXlrkEQtcuG7+nqAg9rLVTX1BssWDjPMXYIpwldnXnxnkEZk60Nmq/UoSa
Itf7n1Pc8JOfIEW4fHxKuNl8Av6vfc55bC3C1LfX172meENBTOTaZUW4c+o8
8b0LCIyh0TxJrgjzMffXN4przle9eTe8CH/vKR11YiGB8wc//47lFaL1pZnb
B6sSMOSHc20hJqu3/vCleIAqP2AKUXtvYrXcIgI5k+RMB0cUokym0qRsil1/
ax5+fL4Q/Q2ulJqoEVhEs8PPthCLncxaWyj+yd++DYVo+8U61FOdQEK0Y5mC
ZiE6XxnySUaDgN3FKx/bZhbijbaaxyUUq9jyN7AQFzm+tzmwmECzSYaEx9cC
DKqLfjhak0DUokdL1j4rwEGpI/syKN5Ds23S/QK8ZWA33nIJAYk/XcfeBRXg
QKuI6eJaBN6/G+4T616AXiZEsZTiG8WSSUf2F2Cu+Czjk9oEtsbwb1iAsuUX
QhYuJTDq8pqWQaoF+Hv6L/lWiqsO7RryeEoBrh73QjQRCPCz168/H8Uaxiw7
vIzyn/oFnd2f8nFi98LORTqU/6aF7FR4mI9v3Paq91Nc2Jd8si0pHyMy9k+v
XE7AhZ++N/IxIDshK2gFgeWlr9LOnspH2ctGCnYrCXTH8gkrH20MJriu1iWQ
7cVn1HxUzblUK6tH4JDdtJHvVPLRcHjPKjF9Agv54TI+H1+/3/+jheI3zIYi
birJbqxeRWDT4tRyhzzEsPJInYLVlJ8GvBEddhExzTt9dsoaAvr89NyImJln
nRxrQAD/m39cRQpxWoDigChDur552z38locWumbzoowIJNHTMMnIw3QtM4u4
tQQ0mhJlP57JQy2jwKzUdQTCEvgEkoeD/sSYFRsTmHxMNGDotDxUsVHcU2dC
17WUawKacvFmYmdP+3oCwwZtGqWSnIt5mVP0xDcQuPbQZRU65+LOBy2HNDcS
+OUd626yOhfjDo4OtdpEwI2f3uK56DDlyh//zXRdin/gOfj0eEP6MzMCR5rl
5g+Nz8GANc3dY7YSaEkytgk4noPHxqu1btpG1084RSmvyMES+9eVEdtpPkHk
27xROTh3R2xh9w4C5vS0TeqzMWCIzCDTXQQePu42/RCVjVYNcaVpuwmY3pC6
cswuG+cvdteRNKfrDMFlo7NOS4K3BYGVsvwXzkaJCFX9kZY0X/j0UJOFBq4N
a65aEVDlH0doFq5xutkzbT+BeBodxjZZaNfh7p10gK6vmP61US0L14VJ7lhr
QyD4Hz16xyxca3UptPMgAVkmIDMxJ+9CRLQtAS9GzzNxybXEtD2HCUxg9DsT
l95zlJ19hK4zep2JlmOcdLuPCvU5A5Py7Wyqjgn1OAN9G0+SjONC/c3AoCDV
+XcchXqbgW5aH7xiT9J1Rl8z0CEi2jrVmcAuRk/v41zpyLmVLlR/Gf28j/Jf
NVbz3AisY/TyPuasnCMvc5ZALaOP93HdbaJj6UnAmNHD+zi6u2JM2nmh/qVj
3fCZ4uKXhHqXju9yk566exGIZfQtHWfde/dU5KpQz9JRXOJX5DVvus7oVzre
qD/9YcF1AlKMXqVhessJhSY/AjcZfUrDk01Pp8YHUD1h9CgN4VysuUcw1Q9G
f9JwY1p+ypEwod6koduxF+X2EVQfGH1JRZ/pUy0vRwv1JBVN1EM2ZMUSsGH0
IxUtg6sP9scL9YL+fs4Ir+1JdJ3Rh1S8VTQ4tCqFwAdGD1IwtsnZz/w+gW0M
/6fg+LbHDiOz6TrD9ykYp+O3uiaP8jPD7yn4c46NQkahkM9T8GSYt3ZWKQEt
hr+TMaG/KrvhAYFihq+T0dVTr3nGE7rO8HMy7qnWmeZeTSCN4eNkjKxflTHs
pZB/k3HWJvHF6a+EfHsP1VpjFC68F/LrPXxy3E3xbBNdZ/j0Hi6MeMSL+Srk
z3voUllq+JNQvmX4Mgl3O06XOt5FoG8qnx+T8Ly1k61ML60nGT5Mwvh5isYD
RXnQz/BfEh6wquqbMJQHxxm+S8L0+o1VO0fxBPx2Fz/Mfr7inThPwGd3sd/y
eWvQNJ6Av+6i6Nsr/n7SdJ3hq0T0aLKSr1bgCfgpEW+o+aeun8+DawwfJaD9
8ZGuUxbzwI3hnwT0fG/Xp6jDgyMM3yRg8aJTtRdX88Cd4Zd4XBZ0okVrPQ9M
GT6Jx7HrJq7X3cYT8McdzDM9vT9mLw9UGb64g+afMh5a2/IE/HCH1kP7zK+d
4An4IA5Hna3fLXWGBzJM/sfhs/BzayWv8GACk++xuKW3ZbjvTR6IMfkdi2XN
tS/do3jQ1crP5xj80bJ8W/s9uu7Cz98YFAu5HP0tjwe1TL7GYOv6TSscKnlQ
zuTnbfwt2qzuX8+DDCYfKXZRH7utmQcxTP5Fo/z1s9/Kenjwksm3aFQ7l+b2
ZWgbXGTyKxpFH5rNKZvSBhlMPkWh0Yt9IoeU2sCayZ8o9DxXUfZVuw0CmHyJ
xCmB/lPWmNDrmfyIxF9Nc/b7WbaBE5MPkVi/pW1Eo1Mb2DDxH4GjXzaYLb7W
BtuZeI9A+9uxkQkxbYL65BYmvo7eY1zQJojnW2h4v0lRtaFNEL+3MHpHyYuD
XW2CeA3HzBLb86PHtwviMxzXqU0qWDC/XRCPYXguy+HwD+N2aGXiLwyHavUM
3H6kHZCJt1CM//7x6I3r7RDGxFco+kZEGGVltYMbE08hmDL4S+an9+1gzsRP
MLrss3TWGN4BK5h4CcJNrsvbqtU6QIaJj0B8vFqmp35vBwxm4iEQh/1Rfml3
vQOalvPPPwCjOvOm5JV3QNlu/nnfxNna81c29XWALHO+/ijW/u38WI1OuMCc
px++qgo33mffCZ+Z87uBRpUHokaldoIBc143cNWiuiMq3Z0Qy5zPdRzoouD7
WbtLcB6+mBzYd3vH+S7B/vugvO6rsDsvugT77Y05GlbDPst3C/bXG0N+Lu6Y
7tIt2M9r2OH29uq6um7B/l1Fj6ObzI+q9wj26z8UGeE9+eDNHsH+eOEAHfUJ
w/p7BPtxCb2kLyWI7P8peP+LaKjfqc+r/gkxjB6dR2nrYnfT5b/Amnk/T/Q6
5xnhmvwLlJn38cC92dPC42b9hh/z+c9/BiULkpUbfH9D0r/853VH3aUSyu2D
euFgHP/5XPEfck4i/kgv7H/Afx5nbH36803gq154x+SfE570l5NeovMHDmfy
/88BW4wmfvgR8ge+MPtzFJdvUEwV7/gjuN9hPGy3P2As9Amut8bztz+h+ek+
we8t8LdKVXtiknB9Ky7Xs4mrrRHiNehcd2bE0JY+GCD4NKSb3stv5dahz9ii
/s0n7no4pBJ0NKSSuz8UZg+5dSOS+39YUNundc+2T/h8MGrFq9ESysLfH4XA
Ha5SK978gb3ZzPvBkinltnc8/wjfH3REpp/plPsD2yuZ/QH3Gj2Vonxu/+DB
2Okr72zsFe4vHDvSM2HOZ27/aZ93ozTe4TfIdTPnAxOztXwsBv8W/J8ntGw6
nmPl+0t4viD3dm5SuMwv4flDDK/sT236T5AYysQHHF/6I/C2wU/B83iB0sre
MZc/cPEFAwevlGg83SOMP7g0WjX864weYXyCXMDHQ9X5XPyCxJv7Q+7t6xbG
N3wW1W+/NK5bGP8wVensy50FXH7Ah4R6+an2XcL8gbWzHY5GK3ZBOZtfENMg
tbPpI5d/YFdSbZBxqxPEgpn8hIKSLZndFp3C/IV/YmdsOS3fKcxviJxS2yVD
uPyHyo9uSsVZHeDO8gM83b2oWfV8B4Sz/AHKFlGfjM04fgHTZM3mNsUOIf+A
1L+vh3T3c/wEe1zLyjRr22HGVYa/YPuYQZrBSe2gdYThNxi4IXJI/yWO/yAz
QNFh+QGOH6GkT93SYBXHn7CzUU6/X74dtrP8ChHPmifoDm8X8i/0lOnoDm7l
+BnUZsulKNRw/A2aqv/4BWdx/A7pvR6HjW5x/A9PH1R0yl3i9AGSnRVFpxzj
9AP6Fot4jN/N6QvYDRtmN8SQ0x8oOmwW36TB6ROA5HCRSLk2wXlFw1mVmFEL
J7QJ9Q1OGRhonR/UJtQ/GN/sfce/g9NHOJhgorz1E09wnrchcmn/vKIXPJg4
itFXeHWgsehBOQ+amHiOAcdT30/tz+b0GT6XrTzhm8jpN5BSKyP9WzzYwOo7
+Eh9F3O6wek/2KS8nip3iasP4O03dwtdV65+gA+9hZOrjvEE/cgdOODzvaLU
hqs/wMasZ7OEOU/Q78TDhevSpNqMq1/gZGeP2Id1tP5h6xvIvpVsqq/PE8RP
Aug7vH/Yu5QHSWx9BN8MDoX2q/Egn62f4ERHo6rhXK6+AoWgz7JvZ9P6jK2/
YGrtWK00SXo9W5+Ba/3rfx9O4UEfW7+BZ3Zjg8R4Hniy9R18fqn2OH4ED0Yx
/JIEzg0iyUfEaP3H1odwpE9jku0AnrB+hOFe7olBvwhEs/UlyKC2fm8HrV/Z
+hMcTOMfXWwV9vv34NOJJav1Wrj6FXilzfXKn7j6Ft7MK8/Wekfra7b+hQVi
vkvsG7j6GOwW78dnL7j6Gbr0zuabVnH1NViozX7Y80jonySDrREVlQquPgd1
uVDP6BIiiPcUMOkIi4ov4Op7+FKXFPM0lwjiPwXOrVxxcGwWvZ7tDyBkm2H9
v+lEkA+poBjs0fwxmfYfr5j+Avxe5gUdu0sE+ZEKdTmLRWfS/qPNkOlPoGbt
6IXvYrj+Bfr8QtZnRNH+iO1vwLFj4JXoW0TAb2kgech/Wlwo1x9Bd+QJzcIg
rn+C3uRxC37c5PorUMnKMlGh/RWbX+ng5qVLTvvS/o7tzyBMNtam8ZrQn0wH
61O35Df/x/V3cM1xt/ery1z/B6KhC6ceucj1h3BGYbn6pPNc/wjzdy2zeuhB
+0+2vwT5B8oKV85w/SeMlh4zZBftP23Z/hS23cm/pO3C9a8gVhujr0D719Ns
fwsZ5OoTKdrfsvVzBrTG2+TI0f73Ctsfg4+N7B11fn/M5HMGrBdz0NrA75/Z
/hp8B6WJn6L9tSzbf8N/Y5MaEu1of8/259DhfUbr2yEiqOczQUbn2KeFtlx/
D5cinp7zoP39Srb/h4KNJbXvrAlUsv4A3P+td1n3AOcfQE3lj50p+zh/AUxD
3wxXtOL8B8CdUSaxezl/ApzqZHjzLDj/AsKrTiTk7yHQwPobUKD31sBsN+d/
QFBVuE/3TgItrD8CWcoD1obs4PwTeHZrmp7hdgK/WH8FbL0+rBLZRgT8kgN1
8aKyuVsIDJNm/BkYbPEozoXvz7D+DbzKmxe/ajPn78CGtbd6J20iEMb6P9AS
P8bu+wYC8qw/BE+Ka96WmxJBv5YLLzIjJOPWc/4SOBxzG3HNhAj4KQ8qH6Y4
OxsT0Gf9Kfg4P33doXVEwFd5sKxPZZcV379i/S1wVH57wdyI87/gVXB4ooUh
549BzNNNCQcMCPxg/TMwGPrOyn4N56/ByPfiuWdWc/4bSK/J8vZbxflzdN3x
4V19IuC7fPgSW2dQqcf5ezBEUvXnN10i6H/zoSYgKXOsLucPQr+olr3mSmG/
nA8ra9zG7FtBr2f9RZi7/5OD33Laf7P+I5z3PHn1oQ6B9aw/CZoag/QH6gj7
8XxIrvt4dukyAg9YfxOKD0gvcgbKj6z/CUfGbV+BS2k8sP4oNH8pCRy0VNjv
F4BB4ywlI20C9ay/CuRX8Rt/Lc5/hUdepyM/L+H8WRhef9t6McVprH8LYakT
JK9ocv4uSO6dmPppMef/QmPkvxOXLeb8YcipNlYP1qB8y/rHUKRtMeSPOucv
wx6f5OO71IX8XAgGzimOxWqcPw19Jkv7ldSEfF0IOi2Xfl1fRKBnIeNvg7PP
gp2iizj/G0IlZs2wUyVwlfXHYf8/0YqNCzn/HH6UmTltpHgy66+D0WSlAQ8X
CP2ZIrjmvj1pOcWhrD8PCe8cXXLmC/m+COpFt5lrUDyb9fdhxn7JtenzhP5P
EZwYPl9DbR43H4DElRoTM+YSaGfnB9CePevNEorV2fkC1ByS8iyYI/SXisG2
MnjQ6jncfAIuVesYV/2dX0DVBt6uHRTrsfMNMF9Uodjyd/4B/5bOiDmhzM1H
YKyi45Ohytz8BPpKbvoHKNHr2fkKWBcd/q2ixM1fID5QkhQqEnjMzmdg7r3f
tlsUufkNLO5wP8xToPnDzncoD+z9flFB6L+VQEqq0xtZil+z8yHQggdahfJU
b9j5EbyLdhPZTbElO1+CV2Xdsv2zhfpUAv9WxEWEzubmU/B0GNjrUDyfnV/B
3PGnr32UI2DPzrfgpf/GzvNyQv+wFO6eenFzjhw3HwOHVwsdn/+dn0GUXKGX
M8Vn2fkaXFbreiZHcTk7fwOP43uXPZMh0MvO50BkdH71KRlufgf9I+o9FWS4
+R4MjAjbUDuL6hs7/4OJeyQ0PGdx80GIPOGorDZLqIdlID24Xfnz3/kiqGxt
Ur0pLdTHMvi2qRwMpbn5JGTlya0eIC3UyzIIvHHbME2KQAQ734Tgc0P1bKSE
+lkGj3Ul5kvz55vsfBTu/q4eVi8p1NMyGJClWOlNcTI7X4X8rxr2hpJCfS0H
mccKfWIUK7LzWQj6pmVV+Hd+C55hJTGnKS5k57vg56tYuGSmUH/L4bnBp8Sf
f+fD8P2Om03G3/kxdF8M7jj+d74MZsu+6GlIcPNnqNKQ3vXz73wavL2ma2bP
EPrhFSAVklHj/He+DZDwWUlnhtA/r4CtrnFag2dw83GoFBk76MF0qtfs/Bz8
Pi12+Y/i/wFqUBe1
      "]]}, 
    {RGBColor[1, 0, 0], PointSize[
      NCache[
       Rational[1, 120], 0.008333333333333333]], Thickness[0.005], 
     Dashing[{Small, Small}], 
     LineBox[{{-0.19999999999999996`, 1.}, {0.20000000000000018`, 
      1.}}]}}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox[
     TagBox[
      StyleBox["\"\[CapitalOmega]-m\"", 32, StripOnInput -> False], HoldForm],
      TraditionalForm], 
    FormBox[
     TagBox[
      StyleBox["\"|t|\"", 32, StripOnInput -> False], HoldForm], 
     TraditionalForm]},
  AxesOrigin->{0, 0.9500000000000021},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->600,
  Method->{
   "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->{{-0.215, 0.215}, {0.95, 1.95}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {0, 0}},
  Ticks->{Automatic, Automatic},
  TicksStyle->Directive[28]]], "Output",
 CellChangeTimes->{
  3.9392987122759247`*^9, {3.9392987533464518`*^9, 3.9392988412049904`*^9}},
 CellLabel->
  "Out[140]=",ExpressionUUID->"96dd7e98-9f90-4778-8059-af55cc421b89"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Figure 3a", "Item",
 CellChangeTimes->{{3.936708339959705*^9, 
  3.9367083442921467`*^9}},ExpressionUUID->"1efd3d5a-f07d-4982-a455-\
19ebe0c80fe6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Initializing", " ", "values"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", 
    RowBox[{
    "E01", ",", "E02", ",", "E03", ",", "E04", ",", "E1r", ",", "E1t", ",", 
     "E2r", ",", "E2t", ",", "E01L", ",", "E02L", ",", "E03L", ",", "E04L"}], 
    "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"tildealpha", "=", 
     RowBox[{"1", "/", "137"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"J", "=", " ", 
     RowBox[{"3.31", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "4"}]]}]}], ";"}], " ", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"eV", "^", 
      RowBox[{"-", "1"}]}], " ", 
     RowBox[{"nm", "^", 
      RowBox[{"-", "3"}]}]}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"J", "=", " ", 
      RowBox[{"5.788", "*", 
       SuperscriptBox["10", 
        RowBox[{"-", "4"}]]}]}], ";"}], " ", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{"eV", "^", 
       RowBox[{"-", "1"}]}], " ", 
      RowBox[{"nm", "^", 
       RowBox[{"-", "3"}]}]}], "*)"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Cnm", "=", " ", 
     RowBox[{"3", "*", 
      SuperscriptBox["10", "8"], "*", 
      SuperscriptBox["10", "9"]}]}], ";"}], " ", 
   RowBox[{"(*", 
    RowBox[{"nm", "/", "s"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Gamma]m", "=", 
     RowBox[{"4.135", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "5"}]]}]}], ";"}], 
   RowBox[{"(*", "eV", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"maxion", "=", ".002"}], ";"}], " ", 
   RowBox[{"(*", "eV", "*)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"\[CapitalOmega]", "=", ".002"}], ";", " ", 
     RowBox[{"(*", "eV", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"\[Omega]1", "=", 
      RowBox[{"1483", "*", 
       SuperscriptBox["10", "9"]}]}], ";", 
     RowBox[{"(*", "Hz", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"\[Omega]2", "=", 
      RowBox[{"1000", "*", 
       SuperscriptBox["10", "9"]}]}], ";"}], " ", 
    RowBox[{"(*", "Hz", "*)"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"1", " ", "meV"}], " ", "=", " ", 
     RowBox[{"241.9", " ", "GHz"}]}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"x", "=", "2"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[CapitalOmega]", "=", 
     RowBox[{".001", "*", "x"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Omega]1", "=", 
     RowBox[{
      RowBox[{"1000", "*", 
       SuperscriptBox["10", "9"]}], "+", 
      RowBox[{"x", " ", "241.9", "*", 
       SuperscriptBox["10", "9"]}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Omega]2", "=", 
     RowBox[{"1000", "*", 
      SuperscriptBox["10", "9"]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"k1", "=", 
     FractionBox["\[Omega]1", "Cnm"]}], ";"}], " ", 
   RowBox[{"(*", " ", 
    SuperscriptBox["nm", 
     RowBox[{"-", "1"}]], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"k2", "=", 
     FractionBox["\[Omega]2", "Cnm"]}], ";"}], 
   RowBox[{"(*", 
    SuperscriptBox["nm", 
     RowBox[{"-", "1"}]], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Q", "=", 
     RowBox[{"k1", " ", "+", "k2"}]}], ";"}], 
   RowBox[{"(*", 
    SuperscriptBox["nm", 
     RowBox[{"-", "1"}]], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Epsilon]0", "=", 
     RowBox[{"55.263", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "3"}]]}]}], ";"}], 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"e", "^", "2"}], " ", 
     RowBox[{"eV", "^", 
      RowBox[{"-", "1"}]}], " ", 
     RowBox[{"nm", "^", 
      RowBox[{"-", "1"}]}]}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"E1a", "=", ".01"}], ";"}], 
   RowBox[{"(*", 
    RowBox[{"V", "/", "nm"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"E2a", " ", "=", 
     SuperscriptBox["10", 
      RowBox[{"-", "7"}]]}], ";"}], 
   RowBox[{"(*", 
    RowBox[{"V", "/", "nm"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"L", "=", 
      RowBox[{"6", "*", 
       SuperscriptBox["10", "5"]}]}], ";"}], 
    RowBox[{"(*", "nm", "*)"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"L", "=", 
     RowBox[{"6", "*", 
      SuperscriptBox["10", "5"]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"n", "=", "1.8"}], ";"}], " ", 
   RowBox[{"(*", 
    RowBox[{"index", " ", "of", " ", "refraction"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Chi]e", "=", 
     RowBox[{
      SuperscriptBox["n", "2"], "-", "1"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Quantities", " ", "updated", " ", "with", " ", "n"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"tildeg", "=", 
     RowBox[{
      FractionBox[
       RowBox[{"2", 
        SuperscriptBox["tildealpha", "2"]}], 
       RowBox[{" ", 
        SuperscriptBox["\[Pi]", "2"]}]], 
      FractionBox["\[Omega]1", 
       RowBox[{"J", "  ", "Cnm"}]], 
      FractionBox[
       SuperscriptBox["n", "3"], 
       RowBox[{"1", "+", "\[Chi]e"}]], "\[Epsilon]0", 
      FractionBox[
       RowBox[{"(", 
        RowBox[{"\[Gamma]m", "*", "\[CapitalOmega]"}], ")"}], 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["maxion", "2"], "-", 
           SuperscriptBox["\[CapitalOmega]", "2"]}], ")"}], "2"], "+", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Gamma]m", "*", "\[CapitalOmega]"}], ")"}], "2"]}]]}]}], 
    ";"}], " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"tildeg12", "[", 
      RowBox[{"\[Phi]1_", ",", "\[Phi]2_"}], "]"}], ":=", 
     RowBox[{"tildeg", "*", 
      FractionBox[
       RowBox[{"Cos", "[", "\[Phi]2", "]"}], 
       RowBox[{"Cos", "[", "\[Phi]1", "]"}]], "*", 
      RowBox[{"Cos", "[", 
       RowBox[{"\[Phi]1", "-", "\[Phi]2"}], "]"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"tildeg34", "[", 
      RowBox[{"\[Phi]3_", ",", "\[Phi]4_"}], "]"}], ":=", 
     RowBox[{"tildeg", "*", 
      FractionBox[
       RowBox[{"Cos", "[", "\[Phi]4", "]"}], 
       RowBox[{"Cos", "[", "\[Phi]3", "]"}]], "*", 
      RowBox[{"Cos", "[", 
       RowBox[{"\[Phi]3", "-", "\[Phi]4"}], "]"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Theta]12", "=", "0"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Theta]34", "=", "0"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Theta]12c", "=", "0"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Theta]34c", "=", "0"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Theta]12L", "=", "0"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Theta]34L", "=", "0"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Theta]12cL", "=", "0"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Theta]34cL", "=", "0"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"E02sq", "[", 
      RowBox[{"z_", ",", "\[Phi]1_", ",", "\[Phi]2_"}], "]"}], ":=", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"Abs", "[", "E02", "]"}], "2"], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"\[Xi]12", "[", 
            RowBox[{"\[Phi]1", ",", "\[Phi]2"}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{"Abs", "[", "E01", "]"}], "2"]}], "-", 
          SuperscriptBox[
           RowBox[{"Abs", "[", "E02", "]"}], "2"]}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"\[Xi]12", "[", 
            RowBox[{"\[Phi]1", ",", "\[Phi]2"}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{"Abs", "[", "E01", "]"}], "2"], " ", 
           RowBox[{"Exp", "[", 
            RowBox[{
             RowBox[{"tildeg12", "[", 
              RowBox[{"\[Phi]1", ",", "\[Phi]2"}], "]"}], "*", "z", "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"\[Xi]12", "[", 
                 RowBox[{"\[Phi]1", ",", "\[Phi]2"}], "]"}], 
                SuperscriptBox[
                 RowBox[{"Abs", "[", "E01", "]"}], "2"]}], "-", 
               SuperscriptBox[
                RowBox[{"Abs", "[", "E02", "]"}], "2"]}], ")"}]}], "]"}]}], 
          "-", 
          SuperscriptBox[
           RowBox[{"Abs", "[", "E02", "]"}], "2"]}], ")"}]}], ")"}]}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"E01sq", "[", 
      RowBox[{"z_", ",", "\[Phi]1_", ",", "\[Phi]2_"}], "]"}], ":=", 
     RowBox[{"Simplify", "[", 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Xi]12", "[", 
           RowBox[{"\[Phi]1", ",", "\[Phi]2"}], "]"}], ")"}], 
         RowBox[{"-", "1"}]], "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"E02sq", "[", 
           RowBox[{"z", ",", "\[Phi]1", ",", "\[Phi]2"}], "]"}], "-", 
          SuperscriptBox[
           RowBox[{"Abs", "[", "E02", "]"}], "2"]}], ")"}]}], "+", 
       SuperscriptBox[
        RowBox[{"Abs", "[", "E01", "]"}], "2"]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"E04sq", "[", 
      RowBox[{"z_", ",", "\[Phi]3_", ",", "\[Phi]4_"}], "]"}], ":=", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"Abs", "[", "E04", "]"}], "2"], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Xi]34", "[", 
           RowBox[{"\[Phi]3", ",", "\[Phi]4"}], "]"}], " ", 
          SuperscriptBox[
           RowBox[{"Abs", "[", "E03", "]"}], "2"]}], "-", 
         SuperscriptBox[
          RowBox[{"Abs", "[", "E04", "]"}], "2"]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Xi]34", "[", 
           RowBox[{"\[Phi]3", ",", "\[Phi]4"}], "]"}], " ", 
          SuperscriptBox[
           RowBox[{"Abs", "[", "E03", "]"}], "2"], " ", 
          RowBox[{"Exp", "[", 
           RowBox[{
            RowBox[{"-", 
             RowBox[{"tildeg34", "[", 
              RowBox[{"\[Phi]3", ",", "\[Phi]4"}], "]"}]}], "*", "z", "*", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"\[Xi]34", "[", 
                RowBox[{"\[Phi]3", ",", "\[Phi]4"}], "]"}], 
               SuperscriptBox[
                RowBox[{"Abs", "[", "E03", "]"}], "2"]}], "-", 
              SuperscriptBox[
               RowBox[{"Abs", "[", "E04", "]"}], "2"]}], ")"}]}], "]"}]}], 
         "-", 
         SuperscriptBox[
          RowBox[{"Abs", "[", "E04", "]"}], "2"]}], ")"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"E03sq", "[", 
      RowBox[{"z_", ",", "\[Phi]3_", ",", "\[Phi]4_"}], "]"}], ":=", 
     RowBox[{"Simplify", "[", 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Xi]34", "[", 
           RowBox[{"\[Phi]3", ",", "\[Phi]4"}], "]"}], ")"}], 
         RowBox[{"-", "1"}]], 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"E04sq", "[", 
           RowBox[{"z", ",", "\[Phi]3", ",", "\[Phi]4"}], "]"}], "-", 
          SuperscriptBox[
           RowBox[{"Abs", "[", "E04", "]"}], "2"]}], ")"}]}], "+", 
       SuperscriptBox[
        RowBox[{"Abs", "[", "E03", "]"}], "2"]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"E01L", " ", "=", " ", "E01"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"E02L", "=", "E02"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"E03L", "=", "E03"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"E04L", "=", "E04"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "1"}], ",", 
     RowBox[{"i", "<=", "l"}], ",", 
     RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"i", "==", "1"}], ",", "\[IndentingNewLine]", 
       RowBox[{"(*", "Initialization", "*)"}], "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"E01L", " ", "=", " ", "E01"}], ";", "\[IndentingNewLine]", 
        RowBox[{"E02L", "=", "E02"}], ";", "\[IndentingNewLine]", 
        RowBox[{"E03L", "=", "E03"}], ";", "\[IndentingNewLine]", 
        RowBox[{"E04L", "=", "E04"}], ";", "\[IndentingNewLine]", 
        RowBox[{"(*", "Solving", "*)"}], "\[IndentingNewLine]", 
        RowBox[{"MySolns", "=", 
         RowBox[{"FindRoot", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"E1a", "+", "E1r"}], "==", 
              RowBox[{"E01", "+", "E03"}]}], ",", "\[IndentingNewLine]", 
             RowBox[{"E2t", "==", 
              RowBox[{"E02", "+", "E04"}]}], ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{
               RowBox[{"E01L", "*", 
                RowBox[{"Exp", "[", 
                 RowBox[{
                  RowBox[{"-", "I"}], " ", "n", " ", "k1", " ", "L"}], 
                 "]"}]}], "+", 
               RowBox[{"E03L", " ", 
                RowBox[{"Exp", "[", 
                 RowBox[{"I", " ", "n", " ", "k1", " ", "L"}], "]"}]}]}], "==", 
              RowBox[{"E1t", " ", 
               RowBox[{"Exp", "[", 
                RowBox[{
                 RowBox[{"-", "I"}], " ", "k1", " ", "L"}], "]"}]}]}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{
               RowBox[{"E02L", " ", 
                RowBox[{"Exp", "[", 
                 RowBox[{"I", " ", "n", " ", "k2", " ", "L"}], "]"}]}], "+", 
               " ", 
               RowBox[{"E04L", "*", 
                RowBox[{"Exp", "[", 
                 RowBox[{
                  RowBox[{"-", "I"}], " ", "n", " ", "k2", " ", "L"}], 
                 "]"}]}]}], "==", 
              RowBox[{
               RowBox[{"E2a", " ", 
                RowBox[{"Exp", "[", 
                 RowBox[{"I", " ", "k2", " ", "L"}], "]"}]}], "+", 
               RowBox[{"E2r", " ", 
                RowBox[{"Exp", "[", 
                 RowBox[{
                  RowBox[{"-", "I"}], " ", "k2", " ", "L"}], "]"}]}]}]}], ",",
              "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{
               FractionBox["E1a", "n"], "-", 
               FractionBox["E1r", "n"], "-", "E01", "+", "E03"}], "==", 
              RowBox[{
               FractionBox[
                RowBox[{"-", "tildealpha"}], 
                RowBox[{"n", " ", "\[Pi]"}]], 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Theta]12", " ", "E04"}], "+", 
                 RowBox[{"\[Theta]34", " ", "E02"}]}], ")"}]}]}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{
               FractionBox["E2t", "n"], "-", "E02", "+", "E04"}], "==", 
              RowBox[{
               FractionBox[
                RowBox[{"-", "tildealpha"}], 
                RowBox[{"n", " ", "\[Pi]"}]], 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Theta]12c", " ", "E03"}], " ", "+", " ", 
                 RowBox[{"\[Theta]34c", " ", "E01"}]}], ")"}]}]}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{
               RowBox[{"E01L", " ", 
                RowBox[{"Exp", "[", 
                 RowBox[{
                  RowBox[{"-", "I"}], " ", "n", " ", "k1", " ", "L"}], 
                 "]"}]}], "-", 
               RowBox[{"E03L", " ", 
                RowBox[{"Exp", "[", 
                 RowBox[{"I", " ", "n", " ", "k1", " ", "L"}], "]"}]}], "-", 
               " ", 
               RowBox[{
                FractionBox["E1t", "n"], 
                RowBox[{"Exp", "[", 
                 RowBox[{
                  RowBox[{"-", "I"}], " ", "k1", " ", "L"}], "]"}]}]}], "==", 
              RowBox[{
               FractionBox["tildealpha", 
                RowBox[{"n", " ", "\[Pi]"}]], 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Theta]34L", " ", 
                  RowBox[{"Exp", "[", 
                   RowBox[{"I", " ", "n", 
                    RowBox[{"(", " ", 
                    RowBox[{"Q", "+", "k2"}], ")"}], " ", "L"}], "]"}], " ", 
                  "E02L"}], "+", 
                 RowBox[{"\[Theta]12L", " ", 
                  RowBox[{"Exp", "[", 
                   RowBox[{
                    RowBox[{"-", " ", "I"}], " ", "n", 
                    RowBox[{"(", 
                    RowBox[{"Q", "+", "k2"}], ")"}], " ", "L"}], "]"}], " ", 
                  "E04L"}]}], ")"}]}]}], ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{
               RowBox[{"E02L", " ", 
                RowBox[{"Exp", "[", 
                 RowBox[{"I", " ", "n", " ", "k2", " ", "L"}], "]"}]}], "-", 
               " ", 
               RowBox[{"E04L", " ", 
                RowBox[{"Exp", "[", 
                 RowBox[{
                  RowBox[{"-", "I"}], " ", "n", " ", "k2", " ", "L"}], 
                 "]"}]}], "-", 
               RowBox[{
                FractionBox["E2a", "n"], " ", 
                RowBox[{"Exp", "[", 
                 RowBox[{"I", " ", "k2", " ", "L"}], "]"}]}], "+", 
               RowBox[{
                FractionBox["E2r", "n"], 
                RowBox[{"Exp", "[", 
                 RowBox[{
                  RowBox[{"-", "I"}], " ", "k2", " ", "L"}], "]"}]}]}], "==", 
              RowBox[{
               FractionBox["tildealpha", 
                RowBox[{"n", " ", "\[Pi]"}]], 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Theta]34cL", " ", 
                  RowBox[{"Exp", "[", 
                   RowBox[{
                    RowBox[{"-", "I"}], " ", "n", 
                    RowBox[{"(", 
                    RowBox[{"Q", "+", "k1"}], ")"}], " ", "L"}], "]"}], 
                  "E01L"}], " ", "+", " ", 
                 RowBox[{"\[Theta]12cL", " ", 
                  RowBox[{"Exp", "[", 
                   RowBox[{"I", " ", "n", 
                    RowBox[{"(", " ", 
                    RowBox[{"Q", "+", "k1"}], ")"}], " ", "L"}], "]"}], " ", 
                  "E03L"}]}], ")"}]}]}]}], "\[IndentingNewLine]", "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"E1r", ",", "1"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"E1t", ",", "1"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"E2r", ",", "1"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"E2t", ",", "1"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"E01", ",", "1"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"E02", ",", "1"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"E03", ",", "1"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"E04", ",", "1"}], "}"}]}], "}"}]}], "]"}]}], ";"}], 
       "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{
          RowBox[{"Print", "[", "i", "]"}], ";", "\[IndentingNewLine]", 
          RowBox[{"Print", "[", "MySolns", "]"}], ";"}], ","}], "*)"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "E01", ",", "E02", ",", "E03", ",", "E04", ",", "E1r", ",", "E1t", 
           ",", "E2r", ",", "E2t"}], "}"}], "=", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
           "E01", ",", "E02", ",", "E03", ",", "E04", ",", "E1r", ",", "E1t", 
            ",", "E2r", ",", "E2t"}], "}"}], "/.", "MySolns"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"\[Theta]12", "=", 
         RowBox[{
          FractionBox["tildealpha", "\[Pi]"], "n", 
          FractionBox["\[Epsilon]0", "J"], 
          FractionBox[
           RowBox[{"E01", "*", 
            RowBox[{"Conjugate", "[", "E02", "]"}]}], 
           RowBox[{
            SuperscriptBox["maxion", "2"], "-", 
            SuperscriptBox["\[CapitalOmega]", "2"], "+", 
            RowBox[{"I", " ", "\[Gamma]m", " ", "\[CapitalOmega]"}]}]]}]}], 
        ";", "\[IndentingNewLine]", 
        RowBox[{"\[Theta]12c", "=", 
         RowBox[{
          FractionBox["tildealpha", "\[Pi]"], "n", 
          FractionBox["\[Epsilon]0", "J"], 
          FractionBox[
           RowBox[{
            RowBox[{"Conjugate", "[", "E01", "]"}], "*", "E02"}], 
           RowBox[{
            SuperscriptBox["maxion", "2"], "-", 
            SuperscriptBox["\[CapitalOmega]", "2"], "-", 
            RowBox[{"I", " ", "\[Gamma]m", " ", "\[CapitalOmega]"}]}]]}]}], 
        ";", "\[IndentingNewLine]", 
        RowBox[{"\[Theta]34", "=", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["tildealpha", "\[Pi]"]}], "n", 
          FractionBox["\[Epsilon]0", "J"], 
          FractionBox[
           RowBox[{"E03", "*", 
            RowBox[{"Conjugate", "[", "E04", "]"}]}], 
           RowBox[{
            SuperscriptBox["maxion", "2"], "-", 
            SuperscriptBox["\[CapitalOmega]", "2"], "+", 
            RowBox[{"I", " ", "\[Gamma]m", " ", "\[CapitalOmega]"}]}]]}]}], 
        ";", "\[IndentingNewLine]", 
        RowBox[{"\[Theta]34c", "=", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["tildealpha", "\[Pi]"]}], "n", 
          FractionBox["\[Epsilon]0", "J"], 
          FractionBox[
           RowBox[{
            RowBox[{"Conjugate", "[", "E03", "]"}], "*", "E04"}], 
           RowBox[{
            SuperscriptBox["maxion", "2"], "-", 
            SuperscriptBox["\[CapitalOmega]", "2"], "-", 
            RowBox[{"I", " ", "\[Gamma]m", " ", "\[CapitalOmega]"}]}]]}]}], 
        ";", "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{"Electric", " ", "field", " ", "at", " ", "z"}], "=", "L"}],
          "*)"}], "\[IndentingNewLine]", 
        RowBox[{"\[Delta]10", "=", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "I"}], " ", 
           RowBox[{"Log", "[", 
            FractionBox["E01", 
             RowBox[{"Abs", "[", "E01", "]"}]], "]"}]}], "-", 
          RowBox[{
           FractionBox["1", 
            RowBox[{"2", 
             RowBox[{"(", 
              RowBox[{"1", "+", "\[Chi]e"}], ")"}]}]], 
           FractionBox[
            RowBox[{
             SuperscriptBox["maxion", "2"], "-", 
             SuperscriptBox["\[CapitalOmega]", "2"]}], 
            RowBox[{"\[Gamma]m", "*", "\[CapitalOmega]"}]], 
           RowBox[{"Log", "[", 
            FractionBox[
             RowBox[{
              RowBox[{
               SuperscriptBox[
                RowBox[{"Abs", "[", "E02", "]"}], 
                RowBox[{"2", " "}]], 
               RowBox[{"Exp", "[", 
                RowBox[{
                 RowBox[{"-", 
                  RowBox[{"tildeg12", "[", 
                   RowBox[{"0", ",", "0"}], "]"}]}], "*", "L", "*", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"\[Xi]12", "[", 
                    RowBox[{"0", ",", "0"}], "]"}], 
                    SuperscriptBox[
                    RowBox[{"Abs", "[", "E01", "]"}], "2"]}], "-", 
                   SuperscriptBox[
                    RowBox[{"Abs", "[", "E02", "]"}], "2"]}], ")"}]}], 
                "]"}]}], "-", 
              RowBox[{
               RowBox[{"\[Xi]12", "[", 
                RowBox[{"0", ",", "0"}], "]"}], 
               SuperscriptBox[
                RowBox[{"Abs", "[", "E01", "]"}], "2"]}]}], 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Abs", "[", "E02", "]"}], "2"], "-", 
              RowBox[{
               RowBox[{"\[Xi]12", "[", 
                RowBox[{"0", ",", "0"}], "]"}], 
               SuperscriptBox[
                RowBox[{"Abs", "[", "E01", "]"}], "2"]}]}]], "]"}]}]}]}], ";",
         "\[IndentingNewLine]", 
        RowBox[{"\[Delta]20", "=", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "I"}], " ", 
           RowBox[{"Log", "[", 
            FractionBox["E02", 
             RowBox[{"Abs", "[", "E02", "]"}]], "]"}]}], "+", 
          RowBox[{
           FractionBox["1", 
            RowBox[{"2", 
             RowBox[{"(", 
              RowBox[{"1", "+", "\[Chi]e"}], ")"}]}]], 
           FractionBox[
            RowBox[{
             SuperscriptBox["maxion", "2"], "-", 
             SuperscriptBox["\[CapitalOmega]", "2"]}], 
            RowBox[{"\[Gamma]m", "*", "\[CapitalOmega]"}]], 
           RowBox[{"Log", "[", 
            FractionBox[
             RowBox[{
              SuperscriptBox[
               RowBox[{"Abs", "[", "E02", "]"}], "2"], "-", 
              RowBox[{
               RowBox[{"\[Xi]12", "[", 
                RowBox[{"0", ",", "0"}], "]"}], 
               SuperscriptBox[
                RowBox[{"Abs", "[", "E01", "]"}], "2"], 
               RowBox[{"Exp", "[", 
                RowBox[{
                 RowBox[{"tildeg12", "[", 
                  RowBox[{"0", ",", "0"}], "]"}], "*", "L", "*", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"\[Xi]12", "[", 
                    RowBox[{"0", ",", "0"}], "]"}], 
                    SuperscriptBox[
                    RowBox[{"Abs", "[", "E01", "]"}], "2"]}], "-", 
                   SuperscriptBox[
                    RowBox[{"Abs", "[", "E02", "]"}], "2"]}], ")"}]}], 
                "]"}]}]}], 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Abs", "[", "E02", "]"}], "2"], "-", 
              RowBox[{
               RowBox[{"\[Xi]12", "[", 
                RowBox[{"0", ",", "0"}], "]"}], 
               SuperscriptBox[
                RowBox[{"Abs", "[", "E01", "]"}], "2"]}]}]], "]"}]}]}]}], ";",
         "\[IndentingNewLine]", 
        RowBox[{"\[Delta]30", "=", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Abs", "[", "E03", "]"}], "<", 
             SuperscriptBox["10", 
              RowBox[{"-", "15"}]]}], "&&", 
            RowBox[{
             RowBox[{"Abs", "[", "E04", "]"}], "<", 
             SuperscriptBox["10", 
              RowBox[{"-", "15"}]]}]}], ",", "0", ",", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "I"}], " ", 
             RowBox[{"Log", "[", 
              FractionBox["E03", 
               RowBox[{"Abs", "[", "E03", "]"}]], "]"}]}], "+", 
            RowBox[{
             FractionBox["1", 
              RowBox[{"2", 
               RowBox[{"(", 
                RowBox[{"1", "+", "\[Chi]e"}], ")"}]}]], 
             FractionBox[
              RowBox[{
               SuperscriptBox["maxion", "2"], "-", 
               SuperscriptBox["\[CapitalOmega]", "2"]}], 
              RowBox[{"\[Gamma]m", "*", "\[CapitalOmega]"}]], 
             RowBox[{"Log", "[", 
              FractionBox[
               RowBox[{
                SuperscriptBox[
                 RowBox[{"Abs", "[", "E04", "]"}], "2"], "-", 
                RowBox[{
                 RowBox[{"\[Xi]34", "[", 
                  RowBox[{"0", ",", "0"}], "]"}], 
                 SuperscriptBox[
                  RowBox[{"Abs", "[", "E03", "]"}], "2"]}]}], 
               RowBox[{
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"Abs", "[", "E04", "]"}], "2"], 
                 RowBox[{"Exp", "[", 
                  RowBox[{
                   RowBox[{"tildeg34", "[", 
                    RowBox[{"0", ",", "0"}], "]"}], "*", "L", "*", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"\[Xi]34", "[", 
                    RowBox[{"0", ",", "0"}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"Abs", "[", "E03", "]"}], "2"]}], "-", 
                    SuperscriptBox[
                    RowBox[{"Abs", "[", "E04", "]"}], "2"]}], ")"}]}], 
                  "]"}]}], "-", 
                RowBox[{
                 RowBox[{"\[Xi]34", "[", 
                  RowBox[{"0", ",", "0"}], "]"}], 
                 SuperscriptBox[
                  RowBox[{"Abs", "[", "E03", "]"}], "2"]}]}]], "]"}]}]}]}], 
          "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"\[Delta]40", "=", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Abs", "[", "E03", "]"}], "<", 
             SuperscriptBox["10", 
              RowBox[{"-", "15"}]]}], "&&", 
            RowBox[{
             RowBox[{"Abs", "[", "E04", "]"}], "<", 
             SuperscriptBox["10", 
              RowBox[{"-", "15"}]]}]}], ",", "0", ",", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "I"}], " ", 
             RowBox[{"Log", "[", 
              FractionBox["E04", 
               RowBox[{"Abs", "[", "E04", "]"}]], "]"}]}], "+", 
            RowBox[{
             FractionBox["1", 
              RowBox[{"2", 
               RowBox[{"(", 
                RowBox[{"1", "+", "\[Chi]e"}], ")"}]}]], 
             FractionBox[
              RowBox[{
               SuperscriptBox["maxion", "2"], "-", 
               SuperscriptBox["\[CapitalOmega]", "2"]}], 
              RowBox[{"\[Gamma]m", "*", "\[CapitalOmega]"}]], 
             RowBox[{"Log", "[", 
              FractionBox[
               RowBox[{
                SuperscriptBox[
                 RowBox[{"Abs", "[", "E04", "]"}], "2"], "-", 
                RowBox[{
                 RowBox[{"\[Xi]34", "[", 
                  RowBox[{"0", ",", "0"}], "]"}], 
                 SuperscriptBox[
                  RowBox[{"Abs", "[", "E03", "]"}], "2"], 
                 RowBox[{"Exp", "[", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{"tildeg34", "[", 
                    RowBox[{"0", ",", "0"}], "]"}]}], "*", "L", "*", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"\[Xi]34", "[", 
                    RowBox[{"0", ",", "0"}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"Abs", "[", "E03", "]"}], "2"]}], "-", 
                    SuperscriptBox[
                    RowBox[{"Abs", "[", "E04", "]"}], "2"]}], ")"}]}], 
                  "]"}]}]}], 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"Abs", "[", "E04", "]"}], "2"], "-", 
                RowBox[{
                 RowBox[{"\[Xi]34", "[", 
                  RowBox[{"0", ",", "0"}], "]"}], 
                 SuperscriptBox[
                  RowBox[{"Abs", "[", "E03", "]"}], "2"]}]}]], "]"}]}]}]}], 
          "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"E01L", "=", 
         RowBox[{
          RowBox[{"Sqrt", "[", 
           RowBox[{"E01sq", "[", 
            RowBox[{"L", ",", "0", ",", "0"}], "]"}], "]"}], "*", 
          RowBox[{"Exp", "[", 
           RowBox[{"I", " ", "\[Delta]10"}], "]"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"E02L", "=", 
         RowBox[{
          RowBox[{"Sqrt", "[", 
           RowBox[{"E02sq", "[", 
            RowBox[{"L", ",", "0", ",", "0"}], "]"}], "]"}], "*", 
          RowBox[{"Exp", "[", 
           RowBox[{"I", " ", "\[Delta]20"}], "]"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{"E03L", "=", 
           RowBox[{
            RowBox[{"Sqrt", "[", 
             RowBox[{"E03sq", "[", 
              RowBox[{"L", ",", "\[Phi]3", ",", "\[Phi]4"}], "]"}], "]"}], 
            "*", 
            RowBox[{"Exp", "[", 
             RowBox[{"I", " ", "\[Delta]30"}], "]"}]}]}], ";"}], "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{"E03L", "=", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"E03", "==", "0"}], "&&", 
            RowBox[{"E04", "==", "0"}]}], ",", "0", ",", 
           RowBox[{
            RowBox[{"Sqrt", "[", 
             RowBox[{"E03sq", "[", 
              RowBox[{"L", ",", "0", ",", "0"}], "]"}], "]"}], "*", 
            RowBox[{"Exp", "[", 
             RowBox[{"I", " ", "\[Delta]30"}], "]"}]}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{"E04L", "=", 
           RowBox[{
            RowBox[{"Sqrt", "[", 
             RowBox[{"E04sq", "[", 
              RowBox[{"L", ",", "\[Phi]3", ",", "\[Phi]4"}], "]"}], "]"}], 
            "*", 
            RowBox[{"Exp", "[", 
             RowBox[{"I", " ", "\[Delta]40"}], "]"}]}]}], ";"}], "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{"E04L", "=", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"E03", "==", "0"}], "&&", 
            RowBox[{"E04", "==", "0"}]}], ",", "0", ",", 
           RowBox[{
            RowBox[{"Sqrt", "[", 
             RowBox[{"E04sq", "[", 
              RowBox[{"L", ",", "0", ",", "0"}], "]"}], "]"}], "*", 
            RowBox[{"Exp", "[", 
             RowBox[{"I", " ", "\[Delta]40"}], "]"}]}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{"Axion", " ", "at", " ", "z"}], " ", "=", " ", "L"}], 
         "*)"}], "\[IndentingNewLine]", 
        RowBox[{"\[Theta]12L", "=", 
         RowBox[{
          FractionBox["tildealpha", "\[Pi]"], "n", 
          FractionBox["\[Epsilon]0", "J"], 
          FractionBox[
           RowBox[{"E01L", "*", 
            RowBox[{"Conjugate", "[", "E02L", "]"}]}], 
           RowBox[{
            SuperscriptBox["maxion", "2"], "-", 
            SuperscriptBox["\[CapitalOmega]", "2"], "+", 
            RowBox[{"I", " ", "\[Gamma]m", " ", "\[CapitalOmega]"}]}]]}]}], 
        ";", "\[IndentingNewLine]", 
        RowBox[{"\[Theta]12cL", "=", 
         RowBox[{
          FractionBox["tildealpha", "\[Pi]"], "n", 
          FractionBox["\[Epsilon]0", "J"], 
          FractionBox[
           RowBox[{
            RowBox[{"Conjugate", "[", "E01L", "]"}], "*", "E02L"}], 
           RowBox[{
            SuperscriptBox["maxion", "2"], "-", 
            SuperscriptBox["\[CapitalOmega]", "2"], "-", 
            RowBox[{"I", " ", "\[Gamma]m", " ", "\[CapitalOmega]"}]}]]}]}], 
        ";", "\[IndentingNewLine]", 
        RowBox[{"\[Theta]34L", "=", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["tildealpha", "\[Pi]"]}], "n", 
          FractionBox["\[Epsilon]0", "J"], 
          FractionBox[
           RowBox[{"E03L", "*", 
            RowBox[{"Conjugate", "[", "E04L", "]"}]}], 
           RowBox[{
            SuperscriptBox["maxion", "2"], "-", 
            SuperscriptBox["\[CapitalOmega]", "2"], "+", 
            RowBox[{"I", " ", "\[Gamma]m", " ", "\[CapitalOmega]"}]}]]}]}], 
        ";", "\[IndentingNewLine]", 
        RowBox[{"\[Theta]34cL", "=", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["tildealpha", "\[Pi]"]}], "n", 
          FractionBox["\[Epsilon]0", "J"], 
          FractionBox[
           RowBox[{
            RowBox[{"Conjugate", "[", "E03L", "]"}], "*", "E04L"}], 
           RowBox[{
            SuperscriptBox["maxion", "2"], "-", 
            SuperscriptBox["\[CapitalOmega]", "2"], "-", 
            RowBox[{"I", " ", "\[Gamma]m", " ", "\[CapitalOmega]"}]}]]}]}], 
        ";", "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{"Print", "[", 
           RowBox[{
           "\"\<phonon conservation says that \
\!\(\*FractionBox[SuperscriptBox[\(\[CapitalDelta]E2\), \(2\)], \
\(\[Omega]2\)]\), \>\"", ",", " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox[
               RowBox[{"Abs", "[", "E02", "]"}], "2"], "-", 
              SuperscriptBox[
               RowBox[{"Abs", "[", "E02L", "]"}], "2"]}], "\[Omega]2"], ",", 
            " ", "\"\< is equal to \!\(\*FractionBox[SuperscriptBox[\(\
\[CapitalDelta]E1\), \(2\)], \(\[Omega]1\)]\), \>\"", ",", 
            FractionBox[
             RowBox[{
              SuperscriptBox[
               RowBox[{"Abs", "[", "E01", "]"}], "2"], "-", 
              SuperscriptBox[
               RowBox[{"Abs", "[", "E01L", "]"}], "2"]}], "\[Omega]1"]}], " ",
            "]"}], ";", "\[IndentingNewLine]", 
          RowBox[{"Print", "[", 
           RowBox[{
           "\"\<To check I2 is growing, we have the ratio \
\!\(\*FractionBox[\(E02\), \(E02L\)]\), \>\"", ",", " ", 
            FractionBox["E02", "E02L"]}], "]"}], ";", "\[IndentingNewLine]", 
          RowBox[{"Print", "[", 
           RowBox[{
           "\"\<To check I1 is decaying, we have the ratio \!\(\*FractionBox[\
\(E01L\), \(E01\)]\), \>\"", " ", ",", " ", 
            FractionBox["E01L", "E01"]}], "]"}], ";"}], "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{"Clear", "[", 
         RowBox[{
         "E01", ",", "E02", ",", "E03", ",", "E04", ",", "E1r", ",", "E1t", 
          ",", "E2r", ",", "E2t", ",", "E01L", ",", "E02L", ",", "E03L", ",", 
          "E04L", ",", "\[Delta]10", ",", "\[Delta]20", ",", "\[Delta]30", 
          ",", "\[Delta]40"}], "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"\[Delta]10", "=", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "I"}], " ", 
           RowBox[{"Log", "[", 
            FractionBox["E01", 
             RowBox[{"Abs", "[", "E01", "]"}]], "]"}]}], "-", 
          RowBox[{
           FractionBox["1", 
            RowBox[{"2", 
             RowBox[{"(", 
              RowBox[{"1", "+", "\[Chi]e"}], ")"}]}]], 
           FractionBox[
            RowBox[{
             SuperscriptBox["maxion", "2"], "-", 
             SuperscriptBox["\[CapitalOmega]", "2"]}], 
            RowBox[{"\[Gamma]m", "*", "\[CapitalOmega]"}]], 
           RowBox[{"Log", "[", 
            FractionBox[
             RowBox[{
              RowBox[{
               SuperscriptBox[
                RowBox[{"Abs", "[", "E02", "]"}], 
                RowBox[{"2", " "}]], 
               RowBox[{"Exp", "[", 
                RowBox[{
                 RowBox[{"-", 
                  RowBox[{"tildeg12", "[", 
                   RowBox[{"0", ",", "0"}], "]"}]}], "*", "L", "*", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"\[Xi]12", "[", 
                    RowBox[{"0", ",", "0"}], "]"}], 
                    SuperscriptBox[
                    RowBox[{"Abs", "[", "E01", "]"}], "2"]}], "-", 
                   SuperscriptBox[
                    RowBox[{"Abs", "[", "E02", "]"}], "2"]}], ")"}]}], 
                "]"}]}], "-", 
              RowBox[{
               RowBox[{"\[Xi]12", "[", 
                RowBox[{"0", ",", "0"}], "]"}], 
               SuperscriptBox[
                RowBox[{"Abs", "[", "E01", "]"}], "2"]}]}], 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Abs", "[", "E02", "]"}], "2"], "-", 
              RowBox[{
               RowBox[{"\[Xi]12", "[", 
                RowBox[{"0", ",", "0"}], "]"}], 
               SuperscriptBox[
                RowBox[{"Abs", "[", "E01", "]"}], "2"]}]}]], "]"}]}]}]}], ";",
         "\[IndentingNewLine]", 
        RowBox[{"\[Delta]20", "=", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "I"}], " ", 
           RowBox[{"Log", "[", 
            FractionBox["E02", 
             RowBox[{"Abs", "[", "E02", "]"}]], "]"}]}], "+", 
          RowBox[{
           FractionBox["1", 
            RowBox[{"2", 
             RowBox[{"(", 
              RowBox[{"1", "+", "\[Chi]e"}], ")"}]}]], 
           FractionBox[
            RowBox[{
             SuperscriptBox["maxion", "2"], "-", 
             SuperscriptBox["\[CapitalOmega]", "2"]}], 
            RowBox[{"\[Gamma]m", "*", "\[CapitalOmega]"}]], 
           RowBox[{"Log", "[", 
            FractionBox[
             RowBox[{
              SuperscriptBox[
               RowBox[{"Abs", "[", "E02", "]"}], "2"], "-", 
              RowBox[{
               RowBox[{"\[Xi]12", "[", 
                RowBox[{"0", ",", "0"}], "]"}], 
               SuperscriptBox[
                RowBox[{"Abs", "[", "E01", "]"}], "2"], 
               RowBox[{"Exp", "[", 
                RowBox[{
                 RowBox[{"tildeg12", "[", 
                  RowBox[{"0", ",", "0"}], "]"}], "*", "L", "*", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"\[Xi]12", "[", 
                    RowBox[{"0", ",", "0"}], "]"}], 
                    SuperscriptBox[
                    RowBox[{"Abs", "[", "E01", "]"}], "2"]}], "-", 
                   SuperscriptBox[
                    RowBox[{"Abs", "[", "E02", "]"}], "2"]}], ")"}]}], 
                "]"}]}]}], 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Abs", "[", "E02", "]"}], "2"], "-", 
              RowBox[{
               RowBox[{"\[Xi]12", "[", 
                RowBox[{"0", ",", "0"}], "]"}], 
               SuperscriptBox[
                RowBox[{"Abs", "[", "E01", "]"}], "2"]}]}]], "]"}]}]}]}], ";",
         "\[IndentingNewLine]", 
        RowBox[{"\[Delta]30", "=", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "I"}], " ", 
           RowBox[{"Log", "[", 
            FractionBox["E03", 
             RowBox[{"Abs", "[", "E03", "]"}]], "]"}]}], "+", 
          RowBox[{
           FractionBox["1", 
            RowBox[{"2", 
             RowBox[{"(", 
              RowBox[{"1", "+", "\[Chi]e"}], ")"}]}]], 
           FractionBox[
            RowBox[{
             SuperscriptBox["maxion", "2"], "-", 
             SuperscriptBox["\[CapitalOmega]", "2"]}], 
            RowBox[{"\[Gamma]m", "*", "\[CapitalOmega]"}]], 
           RowBox[{"Log", "[", 
            FractionBox[
             RowBox[{
              SuperscriptBox[
               RowBox[{"Abs", "[", "E04", "]"}], "2"], "-", 
              RowBox[{
               RowBox[{"\[Xi]34", "[", 
                RowBox[{"0", ",", "0"}], "]"}], 
               SuperscriptBox[
                RowBox[{"Abs", "[", "E03", "]"}], "2"]}]}], 
             RowBox[{
              RowBox[{
               SuperscriptBox[
                RowBox[{"Abs", "[", "E04", "]"}], "2"], 
               RowBox[{"Exp", "[", 
                RowBox[{
                 RowBox[{"tildeg34", "[", 
                  RowBox[{"0", ",", "0"}], "]"}], "*", "L", "*", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"\[Xi]34", "[", 
                    RowBox[{"0", ",", "0"}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"Abs", "[", "E03", "]"}], "2"]}], "-", 
                   SuperscriptBox[
                    RowBox[{"Abs", "[", "E04", "]"}], "2"]}], ")"}]}], 
                "]"}]}], "-", 
              RowBox[{
               RowBox[{"\[Xi]34", "[", 
                RowBox[{"0", ",", "0"}], "]"}], 
               SuperscriptBox[
                RowBox[{"Abs", "[", "E03", "]"}], "2"]}]}]], "]"}]}]}]}], ";",
         "\[IndentingNewLine]", 
        RowBox[{"\[Delta]40", "=", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "I"}], " ", 
           RowBox[{"Log", "[", 
            FractionBox["E04", 
             RowBox[{"Abs", "[", "E04", "]"}]], "]"}]}], "+", 
          RowBox[{
           FractionBox["1", 
            RowBox[{"2", 
             RowBox[{"(", 
              RowBox[{"1", "+", "\[Chi]e"}], ")"}]}]], 
           FractionBox[
            RowBox[{
             SuperscriptBox["maxion", "2"], "-", 
             SuperscriptBox["\[CapitalOmega]", "2"]}], 
            RowBox[{"\[Gamma]m", "*", "\[CapitalOmega]"}]], 
           RowBox[{"Log", "[", 
            FractionBox[
             RowBox[{
              SuperscriptBox[
               RowBox[{"Abs", "[", "E04", "]"}], "2"], "-", 
              RowBox[{
               RowBox[{"\[Xi]34", "[", 
                RowBox[{"0", ",", "0"}], "]"}], 
               SuperscriptBox[
                RowBox[{"Abs", "[", "E03", "]"}], "2"], 
               RowBox[{"Exp", "[", 
                RowBox[{
                 RowBox[{"-", 
                  RowBox[{"tildeg34", "[", 
                   RowBox[{"0", ",", "0"}], "]"}]}], "*", "L", "*", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"\[Xi]34", "[", 
                    RowBox[{"0", ",", "0"}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"Abs", "[", "E03", "]"}], "2"]}], "-", 
                   SuperscriptBox[
                    RowBox[{"Abs", "[", "E04", "]"}], "2"]}], ")"}]}], 
                "]"}]}]}], 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Abs", "[", "E04", "]"}], "2"], "-", 
              RowBox[{
               RowBox[{"\[Xi]34", "[", 
                RowBox[{"0", ",", "0"}], "]"}], 
               SuperscriptBox[
                RowBox[{"Abs", "[", "E03", "]"}], "2"]}]}]], "]"}]}]}]}], ";",
         "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"E01L", "=", 
         RowBox[{
          RowBox[{"Sqrt", "[", 
           RowBox[{"E01sq", "[", 
            RowBox[{"L", ",", "0", ",", "0"}], "]"}], "]"}], "*", 
          RowBox[{"Exp", "[", 
           RowBox[{"I", " ", "\[Delta]10"}], "]"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"E02L", "=", 
         RowBox[{
          RowBox[{"Sqrt", "[", 
           RowBox[{"E02sq", "[", 
            RowBox[{"L", ",", "0", ",", "0"}], "]"}], "]"}], "*", 
          RowBox[{"Exp", "[", 
           RowBox[{"I", " ", "\[Delta]20"}], "]"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"E03L", "=", 
         RowBox[{
          RowBox[{"Sqrt", "[", 
           RowBox[{"E03sq", "[", 
            RowBox[{"L", ",", "0", ",", "0"}], "]"}], "]"}], "*", 
          RowBox[{"Exp", "[", 
           RowBox[{"I", " ", "\[Delta]30"}], "]"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"E04L", "=", 
         RowBox[{
          RowBox[{"Sqrt", "[", 
           RowBox[{"E04sq", "[", 
            RowBox[{"L", ",", "0", ",", "0"}], "]"}], "]"}], "*", 
          RowBox[{"Exp", "[", 
           RowBox[{"I", " ", "\[Delta]40"}], "]"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"MySolns", "=", 
         RowBox[{"FindRoot", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"E1a", "+", "E1r"}], "==", 
              RowBox[{"E01", "+", "E03"}]}], ",", "\[IndentingNewLine]", 
             RowBox[{"E2t", "==", 
              RowBox[{"E02", "+", "E04"}]}], ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{
               RowBox[{"E01L", "*", 
                RowBox[{"Exp", "[", 
                 RowBox[{
                  RowBox[{"-", "I"}], " ", "n", " ", "k1", " ", "L"}], 
                 "]"}]}], "+", 
               RowBox[{"E03L", " ", 
                RowBox[{"Exp", "[", 
                 RowBox[{"I", " ", "n", " ", "k1", " ", "L"}], "]"}]}]}], "==", 
              RowBox[{"E1t", " ", 
               RowBox[{"Exp", "[", 
                RowBox[{
                 RowBox[{"-", "I"}], " ", "k1", " ", "L"}], "]"}]}]}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{
               RowBox[{"E02L", " ", 
                RowBox[{"Exp", "[", 
                 RowBox[{"I", " ", "n", " ", "k2", " ", "L"}], "]"}]}], "+", 
               " ", 
               RowBox[{"E04L", "*", 
                RowBox[{"Exp", "[", 
                 RowBox[{
                  RowBox[{"-", "I"}], " ", "n", " ", "k2", " ", "L"}], 
                 "]"}]}]}], "==", 
              RowBox[{
               RowBox[{"E2a", " ", 
                RowBox[{"Exp", "[", 
                 RowBox[{"I", " ", "k2", " ", "L"}], "]"}]}], "+", 
               RowBox[{"E2r", " ", 
                RowBox[{"Exp", "[", 
                 RowBox[{
                  RowBox[{"-", "I"}], " ", "k2", " ", "L"}], "]"}]}]}]}], ",",
              "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{
               FractionBox["E1a", "n"], "-", 
               FractionBox["E1r", "n"], "-", "E01", "+", "E03"}], "==", 
              RowBox[{
               FractionBox[
                RowBox[{"-", "tildealpha"}], 
                RowBox[{"n", " ", "\[Pi]"}]], 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Theta]12", " ", "E04"}], "+", 
                 RowBox[{"\[Theta]34", " ", "E02"}]}], ")"}]}]}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{
               FractionBox["E2t", "n"], "-", "E02", "+", "E04"}], "==", 
              RowBox[{
               FractionBox[
                RowBox[{"-", "tildealpha"}], 
                RowBox[{"n", " ", "\[Pi]"}]], 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Theta]12c", " ", "E03"}], " ", "+", " ", 
                 RowBox[{"\[Theta]34c", " ", "E01"}]}], ")"}]}]}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{
               RowBox[{"E01L", " ", 
                RowBox[{"Exp", "[", 
                 RowBox[{
                  RowBox[{"-", "I"}], " ", "n", " ", "k1", " ", "L"}], 
                 "]"}]}], "-", 
               RowBox[{"E03L", " ", 
                RowBox[{"Exp", "[", 
                 RowBox[{"I", " ", "n", " ", "k1", " ", "L"}], "]"}]}], "-", 
               " ", 
               RowBox[{
                FractionBox["E1t", "n"], 
                RowBox[{"Exp", "[", 
                 RowBox[{
                  RowBox[{"-", "I"}], " ", "k1", " ", "L"}], "]"}]}]}], "==", 
              RowBox[{
               FractionBox["tildealpha", 
                RowBox[{"n", " ", "\[Pi]"}]], 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Theta]34L", " ", 
                  RowBox[{"Exp", "[", 
                   RowBox[{"I", " ", "n", 
                    RowBox[{"(", " ", 
                    RowBox[{"Q", "+", "k2"}], ")"}], " ", "L"}], "]"}], " ", 
                  "E02L"}], "+", 
                 RowBox[{"\[Theta]12L", " ", 
                  RowBox[{"Exp", "[", 
                   RowBox[{
                    RowBox[{"-", " ", "I"}], " ", "n", 
                    RowBox[{"(", 
                    RowBox[{"Q", "+", "k2"}], ")"}], " ", "L"}], "]"}], " ", 
                  "E04L"}]}], ")"}]}]}], ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{
               RowBox[{"E02L", " ", 
                RowBox[{"Exp", "[", 
                 RowBox[{"I", " ", "n", " ", "k2", " ", "L"}], "]"}]}], "-", 
               " ", 
               RowBox[{"E04L", " ", 
                RowBox[{"Exp", "[", 
                 RowBox[{
                  RowBox[{"-", "I"}], " ", "n", " ", "k2", " ", "L"}], 
                 "]"}]}], "-", 
               RowBox[{
                FractionBox["E2a", "n"], " ", 
                RowBox[{"Exp", "[", 
                 RowBox[{"I", " ", "k2", " ", "L"}], "]"}]}], "+", 
               RowBox[{
                FractionBox["E2r", "n"], 
                RowBox[{"Exp", "[", 
                 RowBox[{
                  RowBox[{"-", "I"}], " ", "k2", " ", "L"}], "]"}]}]}], "==", 
              RowBox[{
               FractionBox["tildealpha", 
                RowBox[{"n", " ", "\[Pi]"}]], 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Theta]34cL", " ", 
                  RowBox[{"Exp", "[", 
                   RowBox[{
                    RowBox[{"-", "I"}], " ", "n", 
                    RowBox[{"(", 
                    RowBox[{"Q", "+", "k1"}], ")"}], " ", "L"}], "]"}], 
                  "E01L"}], " ", "+", " ", 
                 RowBox[{"\[Theta]12cL", " ", 
                  RowBox[{"Exp", "[", 
                   RowBox[{"I", " ", "n", 
                    RowBox[{"(", " ", 
                    RowBox[{"Q", "+", "k1"}], ")"}], " ", "L"}], "]"}], " ", 
                  "E03L"}]}], ")"}]}]}]}], "\[IndentingNewLine]", "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"E1r", ",", "1"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"E1t", ",", "1.1"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"E2r", ",", "1.1"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"E2t", ",", "1.3"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"E01", ",", "1.4"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"E02", ",", "1.5"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"E03", ",", "1.6"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"E04", ",", "1.7"}], "}"}]}], "}"}]}], "]"}]}], ";"}]}],
       "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"Print", "[", "i", "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"Print", "[", "MySolns", "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"Print", "[", 
         RowBox[{
         "\"\<\[Theta]12 is \>\"", ",", "\[Theta]12", ",", " ", 
          "\"\< and \[Theta]34 is \>\"", ",", " ", "\[Theta]34"}], "]"}]}], 
       "*)"}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
     "Taking", " ", "Last", " ", "solutions", " ", "and", " ", "printing", 
      " ", "out", " ", "some", " ", "information"}], ",", " ", 
     RowBox[{
      RowBox[{
      "which", " ", "requires", " ", "the", " ", "fields", " ", "at", " ", 
       "z"}], " ", "=", " ", "L"}]}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "E01", ",", "E02", ",", "E03", ",", "E04", ",", "E1r", ",", "E1t", ",", 
       "E2r", ",", "E2t"}], "}"}], "=", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "E01", ",", "E02", ",", "E03", ",", "E04", ",", "E1r", ",", "E1t", ",",
         "E2r", ",", "E2t"}], "}"}], "/.", "MySolns"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"Electric", " ", "field", " ", "at", " ", "z"}], "=", "L"}], 
    "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Delta]10", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "I"}], " ", 
       RowBox[{"Log", "[", 
        FractionBox["E01", 
         RowBox[{"Abs", "[", "E01", "]"}]], "]"}]}], "-", 
      RowBox[{
       FractionBox["1", 
        RowBox[{"2", 
         RowBox[{"(", 
          RowBox[{"1", "+", "\[Chi]e"}], ")"}]}]], 
       FractionBox[
        RowBox[{
         SuperscriptBox["maxion", "2"], "-", 
         SuperscriptBox["\[CapitalOmega]", "2"]}], 
        RowBox[{"\[Gamma]m", "*", "\[CapitalOmega]"}]], 
       RowBox[{"Log", "[", 
        FractionBox[
         RowBox[{
          RowBox[{
           SuperscriptBox[
            RowBox[{"Abs", "[", "E02", "]"}], 
            RowBox[{"2", " "}]], 
           RowBox[{"Exp", "[", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{"tildeg12", "[", 
               RowBox[{"0", ",", "0"}], "]"}]}], "*", "L", "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"\[Xi]12", "[", 
                 RowBox[{"0", ",", "0"}], "]"}], 
                SuperscriptBox[
                 RowBox[{"Abs", "[", "E01", "]"}], "2"]}], "-", 
               SuperscriptBox[
                RowBox[{"Abs", "[", "E02", "]"}], "2"]}], ")"}]}], "]"}]}], 
          "-", 
          RowBox[{
           RowBox[{"\[Xi]12", "[", 
            RowBox[{"0", ",", "0"}], "]"}], 
           SuperscriptBox[
            RowBox[{"Abs", "[", "E01", "]"}], "2"]}]}], 
         RowBox[{
          SuperscriptBox[
           RowBox[{"Abs", "[", "E02", "]"}], "2"], "-", 
          RowBox[{
           RowBox[{"\[Xi]12", "[", 
            RowBox[{"0", ",", "0"}], "]"}], 
           SuperscriptBox[
            RowBox[{"Abs", "[", "E01", "]"}], "2"]}]}]], "]"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Delta]20", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "I"}], " ", 
       RowBox[{"Log", "[", 
        FractionBox["E02", 
         RowBox[{"Abs", "[", "E02", "]"}]], "]"}]}], "+", 
      RowBox[{
       FractionBox["1", 
        RowBox[{"2", 
         RowBox[{"(", 
          RowBox[{"1", "+", "\[Chi]e"}], ")"}]}]], 
       FractionBox[
        RowBox[{
         SuperscriptBox["maxion", "2"], "-", 
         SuperscriptBox["\[CapitalOmega]", "2"]}], 
        RowBox[{"\[Gamma]m", "*", "\[CapitalOmega]"}]], 
       RowBox[{"Log", "[", 
        FractionBox[
         RowBox[{
          SuperscriptBox[
           RowBox[{"Abs", "[", "E02", "]"}], "2"], "-", 
          RowBox[{
           RowBox[{"\[Xi]12", "[", 
            RowBox[{"0", ",", "0"}], "]"}], 
           SuperscriptBox[
            RowBox[{"Abs", "[", "E01", "]"}], "2"], 
           RowBox[{"Exp", "[", 
            RowBox[{
             RowBox[{"tildeg12", "[", 
              RowBox[{"0", ",", "0"}], "]"}], "*", "L", "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"\[Xi]12", "[", 
                 RowBox[{"0", ",", "0"}], "]"}], 
                SuperscriptBox[
                 RowBox[{"Abs", "[", "E01", "]"}], "2"]}], "-", 
               SuperscriptBox[
                RowBox[{"Abs", "[", "E02", "]"}], "2"]}], ")"}]}], "]"}]}]}], 
         RowBox[{
          SuperscriptBox[
           RowBox[{"Abs", "[", "E02", "]"}], "2"], "-", 
          RowBox[{
           RowBox[{"\[Xi]12", "[", 
            RowBox[{"0", ",", "0"}], "]"}], 
           SuperscriptBox[
            RowBox[{"Abs", "[", "E01", "]"}], "2"]}]}]], "]"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Delta]30", "=", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Abs", "[", "E03", "]"}], "<", 
         SuperscriptBox["10", 
          RowBox[{"-", "15"}]]}], "&&", 
        RowBox[{
         RowBox[{"Abs", "[", "E04", "]"}], "<", 
         SuperscriptBox["10", 
          RowBox[{"-", "15"}]]}]}], ",", "0", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "I"}], " ", 
         RowBox[{"Log", "[", 
          FractionBox["E03", 
           RowBox[{"Abs", "[", "E03", "]"}]], "]"}]}], "+", 
        RowBox[{
         FractionBox["1", 
          RowBox[{"2", 
           RowBox[{"(", 
            RowBox[{"1", "+", "\[Chi]e"}], ")"}]}]], 
         FractionBox[
          RowBox[{
           SuperscriptBox["maxion", "2"], "-", 
           SuperscriptBox["\[CapitalOmega]", "2"]}], 
          RowBox[{"\[Gamma]m", "*", "\[CapitalOmega]"}]], 
         RowBox[{"Log", "[", 
          FractionBox[
           RowBox[{
            SuperscriptBox[
             RowBox[{"Abs", "[", "E04", "]"}], "2"], "-", 
            RowBox[{
             RowBox[{"\[Xi]34", "[", 
              RowBox[{"0", ",", "0"}], "]"}], 
             SuperscriptBox[
              RowBox[{"Abs", "[", "E03", "]"}], "2"]}]}], 
           RowBox[{
            RowBox[{
             SuperscriptBox[
              RowBox[{"Abs", "[", "E04", "]"}], "2"], 
             RowBox[{"Exp", "[", 
              RowBox[{
               RowBox[{"tildeg34", "[", 
                RowBox[{"0", ",", "0"}], "]"}], "*", "L", "*", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"\[Xi]34", "[", 
                   RowBox[{"0", ",", "0"}], "]"}], " ", 
                  SuperscriptBox[
                   RowBox[{"Abs", "[", "E03", "]"}], "2"]}], "-", 
                 SuperscriptBox[
                  RowBox[{"Abs", "[", "E04", "]"}], "2"]}], ")"}]}], "]"}]}], 
            "-", 
            RowBox[{
             RowBox[{"\[Xi]34", "[", 
              RowBox[{"0", ",", "0"}], "]"}], 
             SuperscriptBox[
              RowBox[{"Abs", "[", "E03", "]"}], "2"]}]}]], "]"}]}]}]}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Delta]40", "=", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Abs", "[", "E03", "]"}], "<", 
         SuperscriptBox["10", 
          RowBox[{"-", "15"}]]}], "&&", 
        RowBox[{
         RowBox[{"Abs", "[", "E04", "]"}], "<", 
         SuperscriptBox["10", 
          RowBox[{"-", "15"}]]}]}], ",", "0", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "I"}], " ", 
         RowBox[{"Log", "[", 
          FractionBox["E04", 
           RowBox[{"Abs", "[", "E04", "]"}]], "]"}]}], "-", 
        RowBox[{
         FractionBox["1", 
          RowBox[{"2", 
           RowBox[{"(", 
            RowBox[{"1", "+", "\[Chi]e"}], ")"}]}]], 
         FractionBox[
          RowBox[{
           SuperscriptBox["maxion", "2"], "-", 
           SuperscriptBox["\[CapitalOmega]", "2"]}], 
          RowBox[{"\[Gamma]m", "*", "\[CapitalOmega]"}]], 
         RowBox[{"Log", "[", 
          FractionBox[
           RowBox[{
            SuperscriptBox[
             RowBox[{"Abs", "[", "E04", "]"}], "2"], "-", 
            RowBox[{
             RowBox[{"\[Xi]34", "[", 
              RowBox[{"0", ",", "0"}], "]"}], 
             SuperscriptBox[
              RowBox[{"Abs", "[", "E03", "]"}], "2"]}]}], 
           RowBox[{
            SuperscriptBox[
             RowBox[{"Abs", "[", "E04", "]"}], "2"], "-", 
            RowBox[{
             RowBox[{"\[Xi]34", "[", 
              RowBox[{"0", ",", "0"}], "]"}], 
             SuperscriptBox[
              RowBox[{"Abs", "[", "E03", "]"}], "2"], 
             RowBox[{"Exp", "[", 
              RowBox[{
               RowBox[{"-", 
                RowBox[{"tildeg34", "[", 
                 RowBox[{"0", ",", "0"}], "]"}]}], "*", "L", "*", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"\[Xi]34", "[", 
                   RowBox[{"0", ",", "0"}], "]"}], " ", 
                  SuperscriptBox[
                   RowBox[{"Abs", "[", "E03", "]"}], "2"]}], "-", 
                 SuperscriptBox[
                  RowBox[{"Abs", "[", "E04", "]"}], "2"]}], ")"}]}], 
              "]"}]}]}]], "]"}]}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"E01L", "=", 
     RowBox[{
      RowBox[{"Sqrt", "[", 
       RowBox[{"E01sq", "[", 
        RowBox[{"L", ",", "0", ",", "0"}], "]"}], "]"}], "*", 
      RowBox[{"Exp", "[", 
       RowBox[{"I", " ", "\[Delta]10"}], "]"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"E02L", "=", 
     RowBox[{
      RowBox[{"Sqrt", "[", 
       RowBox[{"E02sq", "[", 
        RowBox[{"L", ",", "0", ",", "0"}], "]"}], "]"}], "*", 
      RowBox[{"Exp", "[", 
       RowBox[{"I", " ", "\[Delta]20"}], "]"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"E03L", "=", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"E03", "==", "0"}], "&&", 
        RowBox[{"E04", "==", "0"}]}], ",", "0", ",", 
       RowBox[{
        RowBox[{"Sqrt", "[", 
         RowBox[{"E03sq", "[", 
          RowBox[{"L", ",", "0", ",", "0"}], "]"}], "]"}], "*", 
        RowBox[{"Exp", "[", 
         RowBox[{"I", " ", "\[Delta]30"}], "]"}]}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"E04L", "=", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"E03", "==", "0"}], "&&", 
        RowBox[{"E04", "==", "0"}]}], ",", "0", ",", 
       RowBox[{
        RowBox[{"Sqrt", "[", 
         RowBox[{"E04sq", "[", 
          RowBox[{"L", ",", "0", ",", "0"}], "]"}], "]"}], "*", 
        RowBox[{"Exp", "[", 
         RowBox[{"I", " ", "\[Delta]40"}], "]"}]}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"Print", "[", 
      RowBox[{
      "\"\<phonon conservation says that \!\(\*FractionBox[\(\[CapitalDelta] \
| E2\*SuperscriptBox[\(|\), \(2\)]\), \(\[Omega]2\)]\), \>\"", ",", " ", 
       FractionBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{"Abs", "[", "E02", "]"}], "2"], "-", 
         SuperscriptBox[
          RowBox[{"Abs", "[", "E02L", "]"}], "2"]}], "\[Omega]2"], ",", " ", 
       "\"\< is equal to \!\(\*FractionBox[\(\[CapitalDelta] | \
E1\*SuperscriptBox[\(|\), \(2\)]\), \(\[Omega]1\)]\), \>\"", ",", 
       FractionBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{"Abs", "[", "E01", "]"}], "2"], "-", 
         SuperscriptBox[
          RowBox[{"Abs", "[", "E01L", "]"}], "2"]}], "\[Omega]1"]}], " ", 
      "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"Print", "[", 
      RowBox[{
      "\"\<phonon conservation says that \!\(\*FractionBox[\(\[CapitalDelta] \
| E4\*SuperscriptBox[\(|\), \(2\)]\), \(\[Omega]2\)]\), \>\"", ",", " ", 
       FractionBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{"Abs", "[", "E04", "]"}], "2"], "-", 
         SuperscriptBox[
          RowBox[{"Abs", "[", "E04L", "]"}], "2"]}], "\[Omega]2"], ",", " ", 
       "\"\< is equal to \!\(\*FractionBox[\(\[CapitalDelta] | \
E3\*SuperscriptBox[\(|\), \(2\)]\), \(\[Omega]1\)]\), \>\"", ",", 
       FractionBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{"Abs", "[", "E03", "]"}], "2"], "-", 
         SuperscriptBox[
          RowBox[{"Abs", "[", "E03L", "]"}], "2"]}], "\[Omega]1"]}], " ", 
      "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"Print", "[", 
      RowBox[{
      "\"\<To check I2 is growing, we have the ratio \
\!\(\*FractionBox[\(E02\), \(E02L\)]\), \>\"", ",", " ", 
       FractionBox["E02", "E02L"]}], "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"Print", "[", 
      RowBox[{
      "\"\<To check I1 is decaying, we have the ratio \
\!\(\*FractionBox[\(E01L\), \(E01\)]\), \>\"", " ", ",", " ", 
       FractionBox["E01L", "E01"]}], "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"Print", "[", 
      RowBox[{
      "\"\<To check I4 is growing, we have the ratio \!\(\*FractionBox[\(E04L\
\), \(E04\)]\), \>\"", " ", ",", " ", 
       FractionBox["E04L", "E04"]}], "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"Print", "[", 
      RowBox[{
      "\"\<To check I3 is decaying, we have the ratio \!\(\*FractionBox[\(E03\
\), \(E03L\)]\), \>\"", " ", ",", " ", 
       FractionBox["E03", "E03L"]}], "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"Print", "[", 
      RowBox[{
      "\"\<The Reflectance at z = 0 is, \!\(\*FractionBox[\(\(|\)\(E1r\)\(|\)\
\), \(E1a\)]\)=\>\"", ",", " ", 
       FractionBox[
        RowBox[{"Abs", "[", "E1r", "]"}], "E1a"]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Print", "[", 
      RowBox[{
      "\"\<The Reflectance at z = L is, \!\(\*FractionBox[\(\(|\)\(E2r\)\(|\)\
\), \(E2a\)]\)=\>\"", ",", " ", 
       FractionBox[
        RowBox[{"Abs", "[", "E2r", "]"}], "E2a"]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Print", "[", 
      RowBox[{
      "\"\<The Transmittance of frequency 1 is, \
\!\(\*FractionBox[\(\(|\)\(E1t\)\(|\)\), \(E1a\)]\)=\>\"", ",", " ", 
       FractionBox[
        RowBox[{"Abs", "[", "E1t", "]"}], "E1a"]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Print", "[", 
      RowBox[{
      "\"\<The Transmittance of frequency 2 is, \
\!\(\*FractionBox[\(\(|\)\(E2t\)\(|\)\), \(E2a\)]\)=\>\"", ",", " ", 
       FractionBox[
        RowBox[{"Abs", "[", "E2t", "]"}], "E2a"]}], "]"}], ";"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"GainsFactor", "=", 
     RowBox[{"tildeg", "*", "L", "*", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"\[Xi]12", "[", 
          RowBox[{"0", ",", "0"}], "]"}], "*", 
         SuperscriptBox[
          RowBox[{"Abs", "[", "E01", "]"}], "2"]}], "-", 
        SuperscriptBox[
         RowBox[{"Abs", "[", "E02", "]"}], "2"]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"Print", "[", 
      RowBox[{"\"\<The Gains factor G is \>\"", ",", " ", "GainsFactor"}], 
      "]"}], ";"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Delta]1L", "=", 
     RowBox[{
      RowBox[{"-", "I"}], " ", 
      RowBox[{"Log", "[", 
       FractionBox["E01L", 
        RowBox[{"Abs", "[", "E01L", "]"}]], "]"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Delta]2", "=", 
     RowBox[{
      RowBox[{"-", "I"}], " ", 
      RowBox[{"Log", "[", 
       FractionBox["E02", 
        RowBox[{"Abs", "[", "E02", "]"}]], "]"}]}]}], ";"}]}]}]], "Input",
 CellChangeTimes->CompressedData["
1:eJwdxU0oA2AABuC1lW3lQGthStQcpjVRLkJN83uhtWmIg0zIkNBs4+A0ko0D
ygEbsxlafhaHISTbZS0y0aT8LqYc2ELL936HpyerpUeuZjIYjAwCuwPC8Loi
IhW6y+mSXjVrg/ynbaNvNN5z8GhxJhePmC38LbJXu0z/uU2P4oFVewyvZz0r
t8l9r5wGXNvNj+LgdB5dsuLP3yGLby7oN3+BElxzFKJfN9ll2Ohw0PMqeFN4
3JpKv9z7nuxXRaS2/ScTtoaTLVgm8NCzF35seLHo046rPubKB8kxUVoljhpq
5ThpkKfEE4nzGlzadkJ/cT4MYUUGV4fHWMJxLXm6TkyXp3SZ8HtzrhmfWp0i
Pbla4KLf+4bVeHfW1o4LPWU92L0U7Me8N5cOdzrP9dgY+jXiw7vkMXxsiR/g
M9+oF1+uffnx40zwCscL2pkGcgurlYPZqtYc/JygoZ9sshfO6yNSQ4eA/g/8
3fjL
  "],ExpressionUUID->"42ebcf88-3871-48b3-b7c8-948e2d96dd5b"],

Cell[BoxData[
 TemplateBox[{
  "General", "munfl", 
   "\"\\!\\(\\*RowBox[{\\\"1.4`\\\", \\\" \\\", \
\\\"3.498968381150526345214879371627551`15.954589770191005*^-23490\\\"}]\\) \
is too small to represent as a normalized machine number; precision may be \
lost.\"", 2, 179, 34, 30661157064733445787, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.936708451400837*^9, 3.9367086357592955`*^9, 3.936708682794963*^9, 
   3.9367190217212124`*^9, {3.9367208254279857`*^9, 3.93672084087292*^9}, 
   3.9367216175434084`*^9, 3.9367228741974487`*^9, 3.9367233511185083`*^9, 
   3.936723447394876*^9, 3.9367234938179026`*^9, 3.936724105622015*^9, 
   3.9367840312857223`*^9, 3.9386932271175365`*^9, {3.9386936896899996`*^9, 
   3.9386936972643046`*^9}, {3.9386937805928593`*^9, 3.938693801575382*^9}, 
   3.938693998681218*^9, 3.9386940970289307`*^9, 3.938699695125801*^9, 
   3.9387040295000334`*^9, 3.9387041981370893`*^9, {3.9387042551447105`*^9, 
   3.938704295494876*^9}, {3.938704334800572*^9, 3.938704350978162*^9}, 
   3.9387044573666534`*^9, {3.9387048890647*^9, 3.9387049726429987`*^9}, {
   3.9387050313128653`*^9, 3.9387050795044003`*^9}, {3.938705428473197*^9, 
   3.938705475606223*^9}, 3.938705747745693*^9, 3.9388549358059564`*^9, 
   3.93929986699078*^9},
 CellLabel->
  "During evaluation of \
In[141]:=",ExpressionUUID->"4d5f4a01-75f2-44c4-894d-92e5dd480113"],

Cell[BoxData[
 TemplateBox[{
  "General", "munfl", 
   "\"\\!\\(\\*RowBox[{\\\"Exp\\\", \\\"[\\\", RowBox[{\\\"-\\\", \
\\\"108172.0582281478`\\\"}], \\\"]\\\"}]\\) is too small to represent as a \
normalized machine number; precision may be lost.\"", 2, 179, 35, 
   30661157064733445787, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.936708451400837*^9, 3.9367086357592955`*^9, 3.936708682794963*^9, 
   3.9367190217212124`*^9, {3.9367208254279857`*^9, 3.93672084087292*^9}, 
   3.9367216175434084`*^9, 3.9367228741974487`*^9, 3.9367233511185083`*^9, 
   3.936723447394876*^9, 3.9367234938179026`*^9, 3.936724105622015*^9, 
   3.9367840312857223`*^9, 3.9386932271175365`*^9, {3.9386936896899996`*^9, 
   3.9386936972643046`*^9}, {3.9386937805928593`*^9, 3.938693801575382*^9}, 
   3.938693998681218*^9, 3.9386940970289307`*^9, 3.938699695125801*^9, 
   3.9387040295000334`*^9, 3.9387041981370893`*^9, {3.9387042551447105`*^9, 
   3.938704295494876*^9}, {3.938704334800572*^9, 3.938704350978162*^9}, 
   3.9387044573666534`*^9, {3.9387048890647*^9, 3.9387049726429987`*^9}, {
   3.9387050313128653`*^9, 3.9387050795044003`*^9}, {3.938705428473197*^9, 
   3.938705475606223*^9}, 3.938705747745693*^9, 3.9388549358059564`*^9, 
   3.9392998670016937`*^9},
 CellLabel->
  "During evaluation of \
In[141]:=",ExpressionUUID->"230a5a6f-d8ca-4f8c-a915-673c65152af6"],

Cell[BoxData[
 TemplateBox[{
  "General", "munfl", 
   "\"\\!\\(\\*RowBox[{RowBox[{\\\"-\\\", \\\"1.164700094352338`\\\"}], \\\" \
\\\", \\\"2.508954680922093373943575106768633339075`15.954589770191005*^-\
58894\\\"}]\\) is too small to represent as a normalized machine number; \
precision may be lost.\"", 2, 179, 36, 30661157064733445787, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.936708451400837*^9, 3.9367086357592955`*^9, 3.936708682794963*^9, 
   3.9367190217212124`*^9, {3.9367208254279857`*^9, 3.93672084087292*^9}, 
   3.9367216175434084`*^9, 3.9367228741974487`*^9, 3.9367233511185083`*^9, 
   3.936723447394876*^9, 3.9367234938179026`*^9, 3.936724105622015*^9, 
   3.9367840312857223`*^9, 3.9386932271175365`*^9, {3.9386936896899996`*^9, 
   3.9386936972643046`*^9}, {3.9386937805928593`*^9, 3.938693801575382*^9}, 
   3.938693998681218*^9, 3.9386940970289307`*^9, 3.938699695125801*^9, 
   3.9387040295000334`*^9, 3.9387041981370893`*^9, {3.9387042551447105`*^9, 
   3.938704295494876*^9}, {3.938704334800572*^9, 3.938704350978162*^9}, 
   3.9387044573666534`*^9, {3.9387048890647*^9, 3.9387049726429987`*^9}, {
   3.9387050313128653`*^9, 3.9387050795044003`*^9}, {3.938705428473197*^9, 
   3.938705475606223*^9}, 3.938705747745693*^9, 3.9388549358059564`*^9, 
   3.9392998670144253`*^9},
 CellLabel->
  "During evaluation of \
In[141]:=",ExpressionUUID->"5b3faa1e-3fff-4191-9744-91aa5b167616"],

Cell[BoxData[
 TemplateBox[{
  "General", "stop", 
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"", 2, 179, 37, 30661157064733445787, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.936708451400837*^9, 3.9367086357592955`*^9, 3.936708682794963*^9, 
   3.9367190217212124`*^9, {3.9367208254279857`*^9, 3.93672084087292*^9}, 
   3.9367216175434084`*^9, 3.9367228741974487`*^9, 3.9367233511185083`*^9, 
   3.936723447394876*^9, 3.9367234938179026`*^9, 3.936724105622015*^9, 
   3.9367840312857223`*^9, 3.9386932271175365`*^9, {3.9386936896899996`*^9, 
   3.9386936972643046`*^9}, {3.9386937805928593`*^9, 3.938693801575382*^9}, 
   3.938693998681218*^9, 3.9386940970289307`*^9, 3.938699695125801*^9, 
   3.9387040295000334`*^9, 3.9387041981370893`*^9, {3.9387042551447105`*^9, 
   3.938704295494876*^9}, {3.938704334800572*^9, 3.938704350978162*^9}, 
   3.9387044573666534`*^9, {3.9387048890647*^9, 3.9387049726429987`*^9}, {
   3.9387050313128653`*^9, 3.9387050795044003`*^9}, {3.938705428473197*^9, 
   3.938705475606223*^9}, 3.938705747745693*^9, 3.9388549358059564`*^9, 
   3.939299867025869*^9},
 CellLabel->
  "During evaluation of \
In[141]:=",ExpressionUUID->"1c43b1b8-ef50-4cd9-9a85-a365a4b9bebf"],

Cell[CellGroupData[{

Cell[BoxData["0.026879702085390422`"], "Print",
 CellChangeTimes->{{3.938693689992953*^9, 3.9386936975656533`*^9}, {
   3.938693780906121*^9, 3.9386938018750534`*^9}, 3.938693998984009*^9, 
   3.938694097325738*^9, 3.9386996956732454`*^9, 3.9387040300665255`*^9, 
   3.938704198430872*^9, {3.9387042554358363`*^9, 3.938704295792286*^9}, {
   3.9387043351059685`*^9, 3.938704351282428*^9}, 3.938704457717241*^9, {
   3.9387048893874083`*^9, 3.9387049728471866`*^9}, {3.938705031617174*^9, 
   3.938705079814331*^9}, {3.938705428787319*^9, 3.938705475905422*^9}, 
   3.9387057480406637`*^9, 3.938854936432537*^9, 3.939299867306853*^9},
 CellLabel->
  "During evaluation of \
In[141]:=",ExpressionUUID->"7536bea0-c673-4f33-9bf9-1332b42266fa"],

Cell[BoxData["3.788245589506569`"], "Print",
 CellChangeTimes->{{3.938693689992953*^9, 3.9386936975656533`*^9}, {
   3.938693780906121*^9, 3.9386938018750534`*^9}, 3.938693998984009*^9, 
   3.938694097325738*^9, 3.9386996956732454`*^9, 3.9387040300665255`*^9, 
   3.938704198430872*^9, {3.9387042554358363`*^9, 3.938704295792286*^9}, {
   3.9387043351059685`*^9, 3.938704351282428*^9}, 3.938704457717241*^9, {
   3.9387048893874083`*^9, 3.9387049728471866`*^9}, {3.938705031617174*^9, 
   3.938705079814331*^9}, {3.938705428787319*^9, 3.938705475905422*^9}, 
   3.9387057480406637`*^9, 3.938854936432537*^9, 3.9392998673106847`*^9},
 CellLabel->
  "During evaluation of \
In[141]:=",ExpressionUUID->"dffeb2bb-12f4-419a-a177-d47faf31bdfb"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"The Transmittance of frequency 2 is, \
\\!\\(\\*FractionBox[\\(\\(|\\)\\(E2t\\)\\(|\\)\\), \\(E2a\\)]\\)=\"\>", 
   "\[InvisibleSpace]", "6.491150484598372`"}],
  SequenceForm[
  "The Transmittance of frequency 2 is, \!\(\*FractionBox[\(\(|\)\(E2t\)\(|\)\
\), \(E2a\)]\)=", 6.491150484598372],
  Editable->False]], "Print",
 CellChangeTimes->{{3.938693689992953*^9, 3.9386936975656533`*^9}, {
   3.938693780906121*^9, 3.9386938018750534`*^9}, 3.938693998984009*^9, 
   3.938694097325738*^9, 3.9386996956732454`*^9, 3.9387040300665255`*^9, 
   3.938704198430872*^9, {3.9387042554358363`*^9, 3.938704295792286*^9}, {
   3.9387043351059685`*^9, 3.938704351282428*^9}, 3.938704457717241*^9, {
   3.9387048893874083`*^9, 3.9387049728471866`*^9}, {3.938705031617174*^9, 
   3.938705079814331*^9}, {3.938705428787319*^9, 3.938705475905422*^9}, 
   3.9387057480406637`*^9, 3.938854936432537*^9, 3.939299867318825*^9},
 CellLabel->
  "During evaluation of \
In[141]:=",ExpressionUUID->"ccbfafe5-7c56-4171-a08e-f28f1dbf2af5"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Plot 3a with logarithm", "Item",
 CellChangeTimes->{{3.936721309729407*^9, 
  3.9367213135423436`*^9}},ExpressionUUID->"5937aeba-ede7-496a-a373-\
7c83a1cf322d"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"E1aPlotData", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"E1PlotData", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"E1tPlotData", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"E1rPlotData", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"E2aPlotData", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"E2PlotData", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"E2tPlotData", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"E2rPlotData", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"E3PlotData", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"E4PlotData", "=", 
    RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Plot", " ", "data", " ", "for", " ", "z"}], "<", "0"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"I1a", "=", 
   RowBox[{"2", "\[Epsilon]0", " ", "Cnm", "*", 
    SuperscriptBox[
     RowBox[{"Abs", "[", "E1a", "]"}], "2"], "*", "1.602", "*", 
    SuperscriptBox["10", 
     RowBox[{"-", "19"}]], "*", 
    SuperscriptBox["10", "14"]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"I1t", "=", 
   RowBox[{"2", "\[Epsilon]0", " ", "Cnm", "*", 
    SuperscriptBox[
     RowBox[{"Abs", "[", "E1t", "]"}], "2"], "*", "1.602", "*", 
    SuperscriptBox["10", 
     RowBox[{"-", "19"}]], "*", 
    SuperscriptBox["10", "14"]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"I1r", "=", 
   RowBox[{"2", "\[Epsilon]0", " ", "Cnm", "*", 
    SuperscriptBox[
     RowBox[{"Abs", "[", "E1r", "]"}], "2"], "*", "1.602", "*", 
    SuperscriptBox["10", 
     RowBox[{"-", "19"}]], "*", 
    SuperscriptBox["10", "14"]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"I2a", "=", 
   RowBox[{"2", "\[Epsilon]0", " ", "Cnm", "*", 
    SuperscriptBox[
     RowBox[{"Abs", "[", "E2a", "]"}], "2"], "*", "1.602", "*", 
    SuperscriptBox["10", 
     RowBox[{"-", "19"}]], "*", 
    SuperscriptBox["10", "14"]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"I2t", "=", 
   RowBox[{"2", "\[Epsilon]0", " ", "Cnm", "*", 
    SuperscriptBox[
     RowBox[{"Abs", "[", "E2t", "]"}], "2"], "*", "1.602", "*", 
    SuperscriptBox["10", 
     RowBox[{"-", "19"}]], "*", 
    SuperscriptBox["10", "14"]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"I2r", "=", 
   RowBox[{"2", "\[Epsilon]0", " ", "Cnm", "*", 
    SuperscriptBox[
     RowBox[{"Abs", "[", "E2r", "]"}], "2"], "*", "1.602", "*", 
    SuperscriptBox["10", 
     RowBox[{"-", "19"}]], "*", 
    SuperscriptBox["10", "14"]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AppendTo", "[", 
   RowBox[{"E1aPlotData", ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "100"}], ",", 
      RowBox[{"Log10", "[", "I1a", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AppendTo", "[", 
   RowBox[{"E1aPlotData", ",", 
    RowBox[{"{", 
     RowBox[{"0", ",", 
      RowBox[{"Log10", "[", "I1a", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AppendTo", "[", 
   RowBox[{"E2aPlotData", ",", 
    RowBox[{"{", 
     RowBox[{"600", ",", 
      RowBox[{"Log10", "[", "I2a", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AppendTo", "[", 
   RowBox[{"E2aPlotData", ",", 
    RowBox[{"{", 
     RowBox[{"700", ",", 
      RowBox[{"Log10", "[", "I2a", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AppendTo", "[", 
   RowBox[{"E1rPlotData", ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "100"}], ",", 
      RowBox[{"Log10", "[", "I1r", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AppendTo", "[", 
   RowBox[{"E1rPlotData", ",", 
    RowBox[{"{", 
     RowBox[{"0", ",", 
      RowBox[{"Log10", "[", "I1r", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AppendTo", "[", 
   RowBox[{"E2rPlotData", ",", 
    RowBox[{"{", 
     RowBox[{"600", ",", 
      RowBox[{"Log10", "[", "I2r", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AppendTo", "[", 
   RowBox[{"E2rPlotData", ",", 
    RowBox[{"{", 
     RowBox[{"700", ",", 
      RowBox[{"Log10", "[", "I2r", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AppendTo", "[", 
   RowBox[{"E1tPlotData", ",", 
    RowBox[{"{", 
     RowBox[{"600", ",", 
      RowBox[{"Log10", "[", "I1t", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AppendTo", "[", 
   RowBox[{"E1tPlotData", ",", 
    RowBox[{"{", 
     RowBox[{"700", ",", 
      RowBox[{"Log10", "[", "I1t", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AppendTo", "[", 
   RowBox[{"E2tPlotData", ",", 
    RowBox[{"{", 
     RowBox[{"0", ",", 
      RowBox[{"Log10", "[", "I2t", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"AppendTo", "[", 
    RowBox[{"E2tPlotData", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "100"}], ",", 
       RowBox[{"Log10", "[", "I2t", "]"}]}], "}"}]}], "]"}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Plot", " ", "data", " ", "for", " ", "0"}], "<", "z", "<", "L"}],
    "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Plotpoints", "=", "25"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"k", "=", "0"}], ",", 
   RowBox[{"k", "<=", "Plotpoints"}], ",", 
   RowBox[{"k", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"myz", "=", 
     RowBox[{"L", "*", 
      FractionBox["k", "Plotpoints"]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"MyE01", "=", 
     RowBox[{"Sqrt", "[", 
      RowBox[{"E01sq", "[", 
       RowBox[{"myz", ",", "0", ",", "0"}], "]"}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"MyE02", "=", 
     RowBox[{"Sqrt", "[", 
      RowBox[{"E02sq", "[", 
       RowBox[{"myz", ",", "0", ",", "0"}], "]"}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"MyE03", "=", 
     RowBox[{"Sqrt", "[", 
      RowBox[{"E03sq", "[", 
       RowBox[{"myz", ",", "0", ",", "0"}], "]"}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"MyE04", "=", 
     RowBox[{"Sqrt", "[", 
      RowBox[{"E04sq", "[", 
       RowBox[{"myz", ",", "0", ",", "0"}], "]"}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"myI1", "=", 
     RowBox[{"2", "\[Epsilon]0", " ", "Cnm", "*", 
      SuperscriptBox[
       RowBox[{"Abs", "[", "MyE01", "]"}], "2"], "*", "1.602", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "19"}]], "*", 
      SuperscriptBox["10", "14"]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"myI2", "=", 
     RowBox[{"2", "\[Epsilon]0", " ", "Cnm", "*", 
      SuperscriptBox[
       RowBox[{"Abs", "[", "MyE02", "]"}], "2"], "*", "1.602", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "19"}]], "*", 
      SuperscriptBox["10", "14"]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"myI3", "=", 
     RowBox[{"2", "\[Epsilon]0", " ", "Cnm", "*", 
      SuperscriptBox[
       RowBox[{"Abs", "[", "MyE03", "]"}], "2"], "*", "1.602", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "19"}]], "*", 
      SuperscriptBox["10", "14"]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"myI4", "=", 
     RowBox[{"2", "\[Epsilon]0", " ", "Cnm", "*", 
      SuperscriptBox[
       RowBox[{"Abs", "[", "MyE04", "]"}], "2"], "*", "1.602", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "19"}]], "*", 
      SuperscriptBox["10", "14"]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"myzmm", "=", 
     RowBox[{"myz", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "3"}]]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"AppendTo", "[", 
     RowBox[{"E1PlotData", ",", 
      RowBox[{"{", 
       RowBox[{"myzmm", ",", 
        RowBox[{"Log10", "[", "myI1", "]"}]}], "}"}]}], "]"}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"AppendTo", "[", 
     RowBox[{"E2PlotData", ",", 
      RowBox[{"{", 
       RowBox[{"myzmm", ",", 
        RowBox[{"Log10", "[", "myI2", "]"}]}], "}"}]}], "]"}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"AppendTo", "[", 
     RowBox[{"E3PlotData", ",", 
      RowBox[{"{", 
       RowBox[{"myzmm", ",", 
        RowBox[{"Log10", "[", "myI3", "]"}]}], "}"}]}], "]"}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"AppendTo", "[", 
     RowBox[{"E4PlotData", ",", 
      RowBox[{"{", 
       RowBox[{"myzmm", ",", 
        RowBox[{"Log10", "[", "myI4", "]"}]}], "}"}]}], "]"}], ";"}]}], 
  "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", 
 RowBox[{"ListLinePlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "E1aPlotData", ",", "E1PlotData", ",", "E1tPlotData", ",", "E1rPlotData", 
     ",", "E2aPlotData", ",", "E2PlotData", ",", "E2tPlotData", ",", 
     "E2rPlotData"}], "}"}], ",", 
   RowBox[{"PlotStyle", "->", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Thickness", "[", ".01", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Thickness", "[", ".01", "]"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"AxesLabel", "->", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Style", "[", 
       RowBox[{"\"\<z (\[Mu]m)\>\"", ",", "32"}], "]"}], ",", 
      RowBox[{"Style", "[", 
       RowBox[{
       "\"\<I \!\(\*SubscriptBox[\(log\), \
\(10\)]\)(W/\!\(\*SuperscriptBox[\(cm\), \(2\)]\))\>\"", ",", "32"}], "]"}]}],
      "}"}]}], ",", 
   RowBox[{"TicksStyle", "->", 
    RowBox[{"Directive", "[", "28", "]"}]}], ",", 
   RowBox[{"ImageSize", "->", "600"}], ",", 
   RowBox[{"PlotRange", "->", "All"}], ",", 
   RowBox[{"PlotLabels", "->", 
    RowBox[{"{", 
     RowBox[{
     "\"\<E1a\>\"", ",", "\"\<E01\>\"", ",", "\"\<E1t\>\"", ",", 
      "\"\<E1r\>\"", ",", " ", "\"\<E2a\>\"", ",", "\"\<E02\>\"", ",", 
      "\"\<E2t\>\"", ",", "\"\<E2r\>\""}], "}"}]}]}], 
  "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.936708906481002*^9, 3.9367089318574743`*^9}, {
   3.936708980965212*^9, 3.936709036704883*^9}, {3.9367090869904385`*^9, 
   3.9367092370911555`*^9}, {3.936709287667658*^9, 3.9367094349401855`*^9}, {
   3.9367094653176937`*^9, 3.936709563850451*^9}, {3.936709670157502*^9, 
   3.936709679610344*^9}, {3.9367097230400743`*^9, 3.9367097485026217`*^9}, {
   3.9367098059113674`*^9, 3.936709856917778*^9}, {3.9367106614781404`*^9, 
   3.9367107847317276`*^9}, {3.9367108373315153`*^9, 
   3.9367108400815663`*^9}, {3.9367108723325443`*^9, 3.936710910850813*^9}, {
   3.9367110456693707`*^9, 3.9367110937420287`*^9}, {3.9367129156771097`*^9, 
   3.9367129166069746`*^9}, {3.9367153643875732`*^9, 
   3.9367153651676674`*^9}, {3.9367190620210934`*^9, 3.936719119282613*^9}, {
   3.9367191872390275`*^9, 3.9367195504473677`*^9}, {3.9367196030702477`*^9, 
   3.9367196614618835`*^9}, {3.936719695417274*^9, 3.936719759152341*^9}, {
   3.9367197992114415`*^9, 3.936719845924207*^9}, {3.936719882433176*^9, 
   3.936719910780535*^9}, {3.936720019521926*^9, 3.936720136861014*^9}, {
   3.9367201784766994`*^9, 3.936720260357871*^9}, {3.9367203332404747`*^9, 
   3.9367203335710287`*^9}, 3.9367207901006117`*^9, {3.9367209149500427`*^9, 
   3.9367210706407475`*^9}, {3.936722819968681*^9, 3.9367228420521374`*^9}, {
   3.936724773514843*^9, 3.936724817119391*^9}, {3.938691664499096*^9, 
   3.93869170324971*^9}, {3.9386935439031973`*^9, 3.938693578236648*^9}},
 CellLabel->
  "In[226]:=",ExpressionUUID->"6d773298-d99e-42ff-b3fa-00d3d91702a6"],

Cell[BoxData[
 GraphicsBox[{{}, {{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      NCache[
       Rational[1, 60], 0.016666666666666666`]], Thickness[0.01], 
     LineBox[{{-100., 7.725248219405822}, {0., 7.725248219405822}}]}, 
    {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
      NCache[
       Rational[1, 60], 0.016666666666666666`]], Thickness[0.01], 
     LineBox[CompressedData["
1:eJxTTMoPSmViYGCQAmIQDQMrj513Pr9I1gHCs3DYy3gSie/hUGlwGIkf5DDX
YB8SP8Jh25OdSPw4h3LjbUj8JAcF9s1I/FQHJt8NSPwMB76va5H42Q6lH1cj
8fMcos1WIfgNBQ79O1cgyRc5+BUtR5IvdhCIXIYkX+oQl74USb7MYcX0JUjy
FQ7qTxcjyVc67PdG4jNUO7w8vghJvsZhThgSn6HOwe7rQiT5eoeJC5H5DQ7L
I5H4Do0Ot6SR+AxNDvueLUDwDzQ5SO6E8AErBHfJ
      "]]}, 
    {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
      NCache[
       Rational[1, 60], 0.016666666666666666`]], Thickness[0.01], 
     LineBox[{{600., 7.627282713989481}, {700., 7.627282713989481}}]}, 
    {RGBColor[0.922526, 0.385626, 0.209179], PointSize[
      NCache[
       Rational[1, 60], 0.016666666666666666`]], Thickness[0.01], 
     LineBox[{{-100., 7.030474704903095}, {0., 7.030474704903095}}]}, 
    {RGBColor[0.528488, 0.470624, 0.701351], PointSize[
      NCache[
       Rational[1, 60], 0.016666666666666666`]], Thickness[0.01], 
     LineBox[{{600., -2.274751780594178}, {700., -2.274751780594178}}]}, 
    {RGBColor[0.772079, 0.431554, 0.102387], PointSize[
      NCache[
       Rational[1, 60], 0.016666666666666666`]], Thickness[0.01], 
     LineBox[CompressedData["
1:eJxTTMoPSmViYGCQAmIQDQM8N/6+U6t5tx/Cs3CYtkX0wALvD1C+h0PjuhUc
epEfofwghwtJFoG70z5B+REOHu5HZ3qUfIby4xxUDvo/utr4BcpPcohRv6GV
3P8Vyk912HgkrvjDnG9QfoZD0s3Hu2tXfYfysx2WzEln4d7xA8rPc3hp+8pn
xtGfEH5DgcP3p9lTVS//gsoXOdzc/ubupge/ofLFDmsu5qg5vPsDlS91CPJ9
k3f291+ofJkDh2P29ijO/1D5Codv97/8L+ZmOACRr3QweWu8xGoSlM9Q7eB/
vsiDUZIRKl/jEN6z8c3x+VA+Q51Ds+aHCX1qTFD5egef1XqmoWth/AaHXtHc
m9ImzBC+Q6PDtOzVtY92QfkMTQ52G14qrnRkgfAPNDl8e6p+LP8EywEALiuM
9g==
      "]]}, 
    {RGBColor[0.363898, 0.618501, 0.782349], PointSize[
      NCache[
       Rational[1, 60], 0.016666666666666666`]], Thickness[0.01], 
     LineBox[{{0., -0.6501084255662181}, {-100., -0.6501084255662181}}]}, 
    {RGBColor[1, 0.75, 0], PointSize[
      NCache[
       Rational[1, 60], 0.016666666666666666`]], Thickness[0.01], 
     LineBox[{{600., -1.3473620383612206`}, {
      700., -1.3473620383612206`}}]}}, {{{GraphicsGroupBox[{
        {GrayLevel[1], AbsoluteThickness[4], Opacity[
          NCache[
           Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[
         "Round"], 
         BSplineCurveBox[{
          Offset[{3, 0}, {-40.336134453781504`, -0.650108425566218}], 
           Offset[{2.999999999965773, 0.00001433036782722287}, {
            730.5555555555555, -0.650108425566218}], 
           Offset[{0, 0}, {744.4444444444445, -0.6501068954851211}], 
           Offset[{5, 0}, {744.4444444444445, -0.6501068954851211}], 
           Offset[{10, 0}, {744.4444444444445, -0.6501068954851211}], 
           Offset[{10, 0}, {744.4444444444445, -0.6501068954851211}]}]}, 
        {RGBColor[0.6666666666666666, 0.6666666666666666, 0.6666666666666666],
          AbsoluteThickness[1.25], 
         BSplineCurveBox[{
          Offset[{3, 0}, {-40.336134453781504`, -0.650108425566218}], 
           Offset[{2.999999999965773, 0.00001433036782722287}, {
            730.5555555555555, -0.650108425566218}], 
           Offset[{0, 0}, {744.4444444444445, -0.6501068954851211}], 
           Offset[{5, 0}, {744.4444444444445, -0.6501068954851211}], 
           Offset[{10, 0}, {744.4444444444445, -0.6501068954851211}], 
           Offset[{10, 0}, {744.4444444444445, -0.6501068954851211}]}]}, 
        {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[
          NCache[
           Rational[2, 3], 0.6666666666666666]]}], 
         PolygonBox[{
          Offset[{31., 6.500000000000003}, {
            744.4444444444445, -0.6501068954851211}], 
           Offset[{31., -6.499999999999997}, {
            744.4444444444445, -0.6501068954851211}], 
           Offset[{10.000000000000002`, -6.500000000000003}, {
            744.4444444444445, -0.6501068954851211}], 
           Offset[{9.999999999999998, 6.499999999999997}, {
            744.4444444444445, -0.6501068954851211}]}]}, 
        {RGBColor[0.6666666666666666, 0.6666666666666666, 0.6666666666666666],
          AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[
         StyleBox[
          RotationBox["\<\"E2t\"\>",
           BoxRotation->0.],
          StripOnInput->False,
          LineOpacity->1,
          FrontFaceOpacity->1,
          BackFaceOpacity->1,
          Opacity->1,
          FontOpacity->1], 
         Offset[{20.5, 0.}, {744.4444444444445, -0.6501068954851211}], NCache[
         ImageScaled[{Rational[1, 2], Rational[1, 2]}], 
          ImageScaled[{0.5, 0.5}]]]}], {GraphicsGroupBox[{
         {GrayLevel[1], AbsoluteThickness[4], Opacity[
           NCache[
            Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[
          "Round"], 
          BSplineCurveBox[{
           Offset[{3, 0}, {700., 7.627282713989481}], 
            Offset[{2.86859205621722, 0.8781683295402207}, {732.6666666666666,
              7.627282713989481}], 
            Offset[{0, 0}, {752.3957336894273, 7.753385318915483}], 
            Offset[{5., 1.1102230246251565`*^-15}, {752.3957336894273, 
             7.753385318915483}], 
            Offset[{10., 2.220446049250313*^-15}, {752.3957336894273, 
             7.753385318915483}], 
            Offset[{10., 2.220446049250313*^-15}, {752.3957336894273, 
             7.753385318915483}]}]}, 
         {RGBColor[
          0.6666666666666666, 0.6666666666666666, 0.6666666666666666], 
          AbsoluteThickness[1.25], 
          BSplineCurveBox[{
           Offset[{3, 0}, {700., 7.627282713989481}], 
            Offset[{2.86859205621722, 0.8781683295402207}, {732.6666666666666,
              7.627282713989481}], 
            Offset[{0, 0}, {752.3957336894273, 7.753385318915483}], 
            Offset[{5., 1.1102230246251565`*^-15}, {752.3957336894273, 
             7.753385318915483}], 
            Offset[{10., 2.220446049250313*^-15}, {752.3957336894273, 
             7.753385318915483}], 
            Offset[{10., 2.220446049250313*^-15}, {752.3957336894273, 
             7.753385318915483}]}]}, 
         {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[
           NCache[
            Rational[2, 3], 0.6666666666666666]]}], 
          PolygonBox[{
           Offset[{31., 6.500000000000007}, {752.3957336894273, 
             7.753385318915483}], 
            Offset[{31., -6.499999999999993}, {752.3957336894273, 
             7.753385318915483}], 
            Offset[{10.000000000000002`, -6.499999999999998}, {
             752.3957336894273, 7.753385318915483}], 
            Offset[{9.999999999999998, 6.500000000000002}, {752.3957336894273,
              7.753385318915483}]}]}, 
         {RGBColor[
          0.6666666666666666, 0.6666666666666666, 0.6666666666666666], 
          AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[
          StyleBox[
           RotationBox["\<\"E1t\"\>",
            BoxRotation->0.],
           StripOnInput->False,
           LineOpacity->1,
           FrontFaceOpacity->1,
           BackFaceOpacity->1,
           Opacity->1,
           FontOpacity->1], 
          Offset[{20.5, 4.551914400963142*^-15}, \
{752.3957336894273, 7.753385318915483}], NCache[
          ImageScaled[{Rational[1, 2], Rational[1, 2]}], 
           ImageScaled[{0.5, 0.5}]]]}], GraphicsGroupBox[{
         {GrayLevel[1], AbsoluteThickness[4], Opacity[
           NCache[
            Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[
          "Round"], 
          BSplineCurveBox[{
           Offset[{3, 0}, {700., -2.274751780594178}], 
            Offset[{2.8311767447291407`, 0.9921886111546063}, {
             732.6666666666666, -2.274751780594178}], 
            Offset[{0, 0}, {752.3957336894273, -2.130393289431036}], 
            Offset[{5., 1.1102230246251565`*^-15}, {
             752.3957336894273, -2.130393289431036}], 
            Offset[{10., 2.220446049250313*^-15}, {
             752.3957336894273, -2.130393289431036}], 
            Offset[{10., 2.220446049250313*^-15}, {
             752.3957336894273, -2.130393289431036}]}]}, 
         {RGBColor[
          0.6666666666666666, 0.6666666666666666, 0.6666666666666666], 
          AbsoluteThickness[1.25], 
          BSplineCurveBox[{
           Offset[{3, 0}, {700., -2.274751780594178}], 
            Offset[{2.8311767447291407`, 0.9921886111546063}, {
             732.6666666666666, -2.274751780594178}], 
            Offset[{0, 0}, {752.3957336894273, -2.130393289431036}], 
            Offset[{5., 1.1102230246251565`*^-15}, {
             752.3957336894273, -2.130393289431036}], 
            Offset[{10., 2.220446049250313*^-15}, {
             752.3957336894273, -2.130393289431036}], 
            Offset[{10., 2.220446049250313*^-15}, {
             752.3957336894273, -2.130393289431036}]}]}, 
         {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[
           NCache[
            Rational[2, 3], 0.6666666666666666]]}], 
          PolygonBox[{
           Offset[{33., 6.500000000000007}, {
             752.3957336894273, -2.130393289431036}], 
            Offset[{33., -6.499999999999993}, {
             752.3957336894273, -2.130393289431036}], 
            Offset[{10.000000000000002`, -6.499999999999998}, {
             752.3957336894273, -2.130393289431036}], 
            Offset[{9.999999999999998, 6.500000000000002}, {
             752.3957336894273, -2.130393289431036}]}]}, 
         {RGBColor[
          0.6666666666666666, 0.6666666666666666, 0.6666666666666666], 
          AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[
          StyleBox[
           RotationBox["\<\"E2a\"\>",
            BoxRotation->0.],
           StripOnInput->False,
           LineOpacity->1,
           FrontFaceOpacity->1,
           BackFaceOpacity->1,
           Opacity->1,
           FontOpacity->1], 
          Offset[{21.5, 4.773959005888173*^-15}, \
{752.3957336894273, -2.130393289431036}], NCache[
          ImageScaled[{Rational[1, 2], Rational[1, 2]}], 
           ImageScaled[{0.5, 0.5}]]]}], GraphicsGroupBox[{
         {GrayLevel[1], AbsoluteThickness[4], Opacity[
           NCache[
            Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[
          "Round"], 
          BSplineCurveBox[{
           Offset[{3, 0}, {700., -1.3473620383612206`}], 
            Offset[{2.9999999910866704`, 0.0002312573811089863}, {
             732.6666666666666, -1.3473620383612206`}], 
            Offset[{0, 0}, {752.3957336894273, -1.347330285020131}], 
            Offset[{5., 1.1102230246251565`*^-15}, {
             752.3957336894273, -1.347330285020131}], 
            Offset[{10., 2.220446049250313*^-15}, {
             752.3957336894273, -1.347330285020131}], 
            Offset[{10., 2.220446049250313*^-15}, {
             752.3957336894273, -1.347330285020131}]}]}, 
         {RGBColor[
          0.6666666666666666, 0.6666666666666666, 0.6666666666666666], 
          AbsoluteThickness[1.25], 
          BSplineCurveBox[{
           Offset[{3, 0}, {700., -1.3473620383612206`}], 
            Offset[{2.9999999910866704`, 0.0002312573811089863}, {
             732.6666666666666, -1.3473620383612206`}], 
            Offset[{0, 0}, {752.3957336894273, -1.347330285020131}], 
            Offset[{5., 1.1102230246251565`*^-15}, {
             752.3957336894273, -1.347330285020131}], 
            Offset[{10., 2.220446049250313*^-15}, {
             752.3957336894273, -1.347330285020131}], 
            Offset[{10., 2.220446049250313*^-15}, {
             752.3957336894273, -1.347330285020131}]}]}, 
         {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[
           NCache[
            Rational[2, 3], 0.6666666666666666]]}], 
          PolygonBox[{
           Offset[{31., 6.500000000000007}, {
             752.3957336894273, -1.347330285020131}], 
            Offset[{31., -6.499999999999993}, {
             752.3957336894273, -1.347330285020131}], 
            Offset[{10.000000000000002`, -6.499999999999998}, {
             752.3957336894273, -1.347330285020131}], 
            Offset[{9.999999999999998, 6.500000000000002}, {
             752.3957336894273, -1.347330285020131}]}]}, 
         {RGBColor[
          0.6666666666666666, 0.6666666666666666, 0.6666666666666666], 
          AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[
          StyleBox[
           RotationBox["\<\"E2r\"\>",
            BoxRotation->0.],
           StripOnInput->False,
           LineOpacity->1,
           FrontFaceOpacity->1,
           BackFaceOpacity->1,
           Opacity->1,
           FontOpacity->1], 
          Offset[{20.5, 4.551914400963142*^-15}, \
{752.3957336894273, -1.347330285020131}], NCache[
          ImageScaled[{Rational[1, 2], Rational[1, 2]}], 
           ImageScaled[{0.5, 0.5}]]]}]}, {GraphicsGroupBox[{
         {GrayLevel[1], AbsoluteThickness[4], Opacity[
           NCache[
            Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[
          "Round"], 
          BSplineCurveBox[{
           Offset[{3, 0}, {0., 7.725248219405822}], 
            Offset[{1.6237409025115506`, 2.522591025416323}, {
             732.6666666666666, 7.725248219405822}], 
            Offset[{0, 0}, {752.3957336894273, 8.36519696825993}], 
            Offset[{5., 1.1102230246251565`*^-15}, {752.3957336894273, 
             8.36519696825993}], 
            Offset[{10., 2.220446049250313*^-15}, {752.3957336894273, 
             8.36519696825993}], 
            Offset[{10., 2.220446049250313*^-15}, {752.3957336894273, 
             8.36519696825993}]}]}, 
         {RGBColor[
          0.6666666666666666, 0.6666666666666666, 0.6666666666666666], 
          AbsoluteThickness[1.25], 
          BSplineCurveBox[{
           Offset[{3, 0}, {0., 7.725248219405822}], 
            Offset[{1.6237409025115506`, 2.522591025416323}, {
             732.6666666666666, 7.725248219405822}], 
            Offset[{0, 0}, {752.3957336894273, 8.36519696825993}], 
            Offset[{5., 1.1102230246251565`*^-15}, {752.3957336894273, 
             8.36519696825993}], 
            Offset[{10., 2.220446049250313*^-15}, {752.3957336894273, 
             8.36519696825993}], 
            Offset[{10., 2.220446049250313*^-15}, {752.3957336894273, 
             8.36519696825993}]}]}, 
         {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[
           NCache[
            Rational[2, 3], 0.6666666666666666]]}], 
          PolygonBox[{
           Offset[{33., 6.500000000000007}, {752.3957336894273, 
             8.36519696825993}], 
            Offset[{33., -6.499999999999993}, {752.3957336894273, 
             8.36519696825993}], 
            Offset[{10.000000000000002`, -6.499999999999998}, {
             752.3957336894273, 8.36519696825993}], 
            Offset[{9.999999999999998, 6.500000000000002}, {752.3957336894273,
              8.36519696825993}]}]}, 
         {RGBColor[
          0.6666666666666666, 0.6666666666666666, 0.6666666666666666], 
          AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[
          StyleBox[
           RotationBox["\<\"E1a\"\>",
            BoxRotation->0.],
           StripOnInput->False,
           LineOpacity->1,
           FrontFaceOpacity->1,
           BackFaceOpacity->1,
           Opacity->1,
           FontOpacity->1], 
          Offset[{21.5, 4.773959005888173*^-15}, \
{752.3957336894273, 8.36519696825993}], NCache[
          ImageScaled[{Rational[1, 2], Rational[1, 2]}], 
           ImageScaled[{0.5, 0.5}]]]}], GraphicsGroupBox[{
         {GrayLevel[1], AbsoluteThickness[4], Opacity[
           NCache[
            Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[
          "Round"], 
          BSplineCurveBox[{
           Offset[{3, 0}, {600., 7.408993775067096}], 
            Offset[{2.516254798244435, -1.6335427115052297`}, {
             732.6666666666666, 7.408993775067096}], 
            Offset[{0, 0}, {752.3957336894273, 7.14157557764493}], 
            Offset[{5., 1.1102230246251565`*^-15}, {752.3957336894273, 
             7.14157557764493}], 
            Offset[{10., 2.220446049250313*^-15}, {752.3957336894273, 
             7.14157557764493}], 
            Offset[{10., 2.220446049250313*^-15}, {752.3957336894273, 
             7.14157557764493}]}]}, 
         {RGBColor[
          0.6666666666666666, 0.6666666666666666, 0.6666666666666666], 
          AbsoluteThickness[1.25], 
          BSplineCurveBox[{
           Offset[{3, 0}, {600., 7.408993775067096}], 
            Offset[{2.516254798244435, -1.6335427115052297`}, {
             732.6666666666666, 7.408993775067096}], 
            Offset[{0, 0}, {752.3957336894273, 7.14157557764493}], 
            Offset[{5., 1.1102230246251565`*^-15}, {752.3957336894273, 
             7.14157557764493}], 
            Offset[{10., 2.220446049250313*^-15}, {752.3957336894273, 
             7.14157557764493}], 
            Offset[{10., 2.220446049250313*^-15}, {752.3957336894273, 
             7.14157557764493}]}]}, 
         {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[
           NCache[
            Rational[2, 3], 0.6666666666666666]]}], 
          PolygonBox[{
           Offset[{33., 6.500000000000007}, {752.3957336894273, 
             7.14157557764493}], 
            Offset[{33., -6.499999999999993}, {752.3957336894273, 
             7.14157557764493}], 
            Offset[{10.000000000000002`, -6.499999999999998}, {
             752.3957336894273, 7.14157557764493}], 
            Offset[{9.999999999999998, 6.500000000000002}, {752.3957336894273,
              7.14157557764493}]}]}, 
         {RGBColor[
          0.6666666666666666, 0.6666666666666666, 0.6666666666666666], 
          AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[
          StyleBox[
           RotationBox["\<\"E01\"\>",
            BoxRotation->0.],
           StripOnInput->False,
           LineOpacity->1,
           FrontFaceOpacity->1,
           BackFaceOpacity->1,
           Opacity->1,
           FontOpacity->1], 
          Offset[{21.5, 4.773959005888173*^-15}, \
{752.3957336894273, 7.14157557764493}], NCache[
          ImageScaled[{Rational[1, 2], Rational[1, 2]}], 
           ImageScaled[{0.5, 0.5}]]]}], GraphicsGroupBox[{
         {GrayLevel[1], AbsoluteThickness[4], Opacity[
           NCache[
            Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[
          "Round"], 
          BSplineCurveBox[{
           Offset[{3, 0}, {0., 7.030474704903095}], 
            Offset[{1.9059384562635915`, -2.3167646839796996`}, {
             732.6666666666666, 7.030474704903095}], 
            Offset[{0, 0}, {752.3957336894273, 6.529762554502168}], 
            Offset[{5., 1.1102230246251565`*^-15}, {752.3957336894273, 
             6.529762554502168}], 
            Offset[{10., 2.220446049250313*^-15}, {752.3957336894273, 
             6.529762554502168}], 
            Offset[{10., 2.220446049250313*^-15}, {752.3957336894273, 
             6.529762554502168}]}]}, 
         {RGBColor[
          0.6666666666666666, 0.6666666666666666, 0.6666666666666666], 
          AbsoluteThickness[1.25], 
          BSplineCurveBox[{
           Offset[{3, 0}, {0., 7.030474704903095}], 
            Offset[{1.9059384562635915`, -2.3167646839796996`}, {
             732.6666666666666, 7.030474704903095}], 
            Offset[{0, 0}, {752.3957336894273, 6.529762554502168}], 
            Offset[{5., 1.1102230246251565`*^-15}, {752.3957336894273, 
             6.529762554502168}], 
            Offset[{10., 2.220446049250313*^-15}, {752.3957336894273, 
             6.529762554502168}], 
            Offset[{10., 2.220446049250313*^-15}, {752.3957336894273, 
             6.529762554502168}]}]}, 
         {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[
           NCache[
            Rational[2, 3], 0.6666666666666666]]}], 
          PolygonBox[{
           Offset[{31., 6.500000000000007}, {752.3957336894273, 
             6.529762554502168}], 
            Offset[{31., -6.499999999999993}, {752.3957336894273, 
             6.529762554502168}], 
            Offset[{10.000000000000002`, -6.499999999999998}, {
             752.3957336894273, 6.529762554502168}], 
            Offset[{9.999999999999998, 6.500000000000002}, {752.3957336894273,
              6.529762554502168}]}]}, 
         {RGBColor[
          0.6666666666666666, 0.6666666666666666, 0.6666666666666666], 
          AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[
          StyleBox[
           RotationBox["\<\"E1r\"\>",
            BoxRotation->0.],
           StripOnInput->False,
           LineOpacity->1,
           FrontFaceOpacity->1,
           BackFaceOpacity->1,
           Opacity->1,
           FontOpacity->1], 
          Offset[{20.5, 4.551914400963142*^-15}, \
{752.3957336894273, 6.529762554502168}], NCache[
          ImageScaled[{Rational[1, 2], Rational[1, 2]}], 
           ImageScaled[{0.5, 0.5}]]]}], GraphicsGroupBox[{
         {GrayLevel[1], AbsoluteThickness[4], Opacity[
           NCache[
            Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[
          "Round"], 
          BSplineCurveBox[{
           Offset[{3, 0}, {600., -2.5978694420743933`}], 
            Offset[{2.8311721041893216`, -0.9922018526792857}, {
             732.6666666666666, -2.5978694420743933`}], 
            Offset[{0, 0}, {752.3957336894273, -2.742230096432699}], 
            Offset[{5., 1.1102230246251565`*^-15}, {
             752.3957336894273, -2.742230096432699}], 
            Offset[{10., 2.220446049250313*^-15}, {
             752.3957336894273, -2.742230096432699}], 
            Offset[{10., 2.220446049250313*^-15}, {
             752.3957336894273, -2.742230096432699}]}]}, 
         {RGBColor[
          0.6666666666666666, 0.6666666666666666, 0.6666666666666666], 
          AbsoluteThickness[1.25], 
          BSplineCurveBox[{
           Offset[{3, 0}, {600., -2.5978694420743933`}], 
            Offset[{2.8311721041893216`, -0.9922018526792857}, {
             732.6666666666666, -2.5978694420743933`}], 
            Offset[{0, 0}, {752.3957336894273, -2.742230096432699}], 
            Offset[{5., 1.1102230246251565`*^-15}, {
             752.3957336894273, -2.742230096432699}], 
            Offset[{10., 2.220446049250313*^-15}, {
             752.3957336894273, -2.742230096432699}], 
            Offset[{10., 2.220446049250313*^-15}, {
             752.3957336894273, -2.742230096432699}]}]}, 
         {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[
           NCache[
            Rational[2, 3], 0.6666666666666666]]}], 
          PolygonBox[{
           Offset[{33., 6.500000000000007}, {
             752.3957336894273, -2.742230096432699}], 
            Offset[{33., -6.499999999999993}, {
             752.3957336894273, -2.742230096432699}], 
            Offset[{10.000000000000002`, -6.499999999999998}, {
             752.3957336894273, -2.742230096432699}], 
            Offset[{9.999999999999998, 6.500000000000002}, {
             752.3957336894273, -2.742230096432699}]}]}, 
         {RGBColor[
          0.6666666666666666, 0.6666666666666666, 0.6666666666666666], 
          AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[
          StyleBox[
           RotationBox["\<\"E02\"\>",
            BoxRotation->0.],
           StripOnInput->False,
           LineOpacity->1,
           FrontFaceOpacity->1,
           BackFaceOpacity->1,
           Opacity->1,
           FontOpacity->1], 
          Offset[{21.5, 4.773959005888173*^-15}, \
{752.3957336894273, -2.742230096432699}], NCache[
          ImageScaled[{Rational[1, 2], Rational[1, 2]}], 
           ImageScaled[{0.5, 0.5}]]]}]}}, {}}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox[
     TagBox[
      StyleBox["\"z (\[Mu]m)\"", 32, StripOnInput -> False], HoldForm], 
     TraditionalForm], 
    FormBox[
     TagBox[
      StyleBox[
      "\"I \\!\\(\\*SubscriptBox[\\(log\\), \
\\(10\\)]\\)(W/\\!\\(\\*SuperscriptBox[\\(cm\\), \\(2\\)]\\))\"", 32, 
       StripOnInput -> False], HoldForm], TraditionalForm]},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->{{All, 63.79680026707054}, {All, All}},
  ImageSize->600,
  Method->{
   "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->{{-100., 700.}, {-2.5978694420743933`, 7.725248219405822}},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.08090169943749476]}},
  Ticks->{Automatic, Automatic},
  TicksStyle->Directive[28]]], "Output",
 CellChangeTimes->{{3.936719654008876*^9, 3.936719661858763*^9}, 
   3.936719731082431*^9, 3.936719848110758*^9, {3.936719889229784*^9, 
   3.9367199114532857`*^9}, {3.9367200580000973`*^9, 3.936720137630836*^9}, 
   3.9367202616714478`*^9, 3.936720334087473*^9, 3.9367208440187216`*^9, 
   3.936721041471244*^9, 3.9367210720202255`*^9, {3.936722811100752*^9, 
   3.936722842730749*^9}, 3.9367228843308372`*^9, 3.936723362699955*^9, 
   3.9367234537718506`*^9, 3.936723503301827*^9, 3.9367241159223166`*^9, 
   3.936724817821561*^9, 3.938693228431074*^9, 3.9386935815663958`*^9, 
   3.938694014384694*^9, 3.9386941082946415`*^9, 3.938699696493394*^9, 
   3.938704030599427*^9, 3.938704061019372*^9, 3.9387042102783256`*^9, 
   3.9387043612488756`*^9, 3.938704467547682*^9, 3.9387049883064146`*^9, 
   3.938705089536767*^9, 3.9387054868959775`*^9, 3.9387057580955944`*^9, 
   3.939300127445414*^9},
 CellLabel->
  "Out[256]=",ExpressionUUID->"29bce759-0a31-4671-956a-6458b4f17117"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLinePlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "E1aPlotData", ",", "E1PlotData", ",", "E1tPlotData", ",", "E1rPlotData", 
     ",", "E2aPlotData", ",", "E2PlotData", ",", "E2tPlotData", ",", 
     "E2rPlotData"}], "}"}], ",", 
   RowBox[{"PlotStyle", "->", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Blue", ",", 
        RowBox[{"Thickness", "[", ".01", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", 
        RowBox[{"Thickness", "[", ".01", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", 
        RowBox[{"Thickness", "[", ".01", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", 
        RowBox[{"Thickness", "[", ".01", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Red", ",", 
        RowBox[{"Thickness", "[", ".01", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Red", ",", 
        RowBox[{"Thickness", "[", ".01", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Red", ",", 
        RowBox[{"Thickness", "[", ".01", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Red", ",", 
        RowBox[{"Thickness", "[", ".01", "]"}]}], "}"}]}], "}"}]}], ",", 
   RowBox[{"AxesLabel", "->", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Style", "[", 
       RowBox[{"\"\<z (\[Mu]m)\>\"", ",", "32"}], "]"}], ",", 
      RowBox[{"Style", "[", 
       RowBox[{
       "\"\<log(I) (\!\(\*SubscriptBox[\(log\), \
\(10\)]\)[W/\!\(\*SuperscriptBox[\(cm\), \(2\)]\)])\>\"", ",", "32"}], 
       "]"}]}], "}"}]}], ",", 
   RowBox[{"TicksStyle", "->", 
    RowBox[{"Directive", "[", "28", "]"}]}], ",", 
   RowBox[{"ImageSize", "->", "600"}], ",", 
   RowBox[{"PlotRange", "->", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.936720604640188*^9, 3.936720646950308*^9}, 
   3.9367207020494957`*^9, {3.9367210837028775`*^9, 3.936721115648112*^9}, {
   3.9367229076635323`*^9, 3.9367229241339025`*^9}, {3.9386917142575407`*^9, 
   3.938691767289943*^9}},
 CellLabel->
  "In[257]:=",ExpressionUUID->"a697aa11-d92a-4cf6-8fac-594c9f2b4fc2"],

Cell[BoxData[
 GraphicsBox[{{}, {{}, {}, 
    {RGBColor[0, 0, 1], PointSize[
      NCache[
       Rational[1, 60], 0.016666666666666666`]], Thickness[0.01], 
     LineBox[{{-100., 7.725248219405822}, {0., 7.725248219405822}}]}, 
    {RGBColor[0, 0, 1], PointSize[
      NCache[
       Rational[1, 60], 0.016666666666666666`]], Thickness[0.01], 
     LineBox[CompressedData["
1:eJxTTMoPSmViYGCQAmIQDQMrj513Pr9I1gHCs3DYy3gSie/hUGlwGIkf5DDX
YB8SP8Jh25OdSPw4h3LjbUj8JAcF9s1I/FQHJt8NSPwMB76va5H42Q6lH1cj
8fMcos1WIfgNBQ79O1cgyRc5+BUtR5IvdhCIXIYkX+oQl74USb7MYcX0JUjy
FQ7qTxcjyVc67PdG4jNUO7w8vghJvsZhThgSn6HOwe7rQiT5eoeJC5H5DQ7L
I5H4Do0Ot6SR+AxNDvueLUDwDzQ5SO6E8AErBHfJ
      "]]}, 
    {RGBColor[0, 0, 1], PointSize[
      NCache[
       Rational[1, 60], 0.016666666666666666`]], Thickness[0.01], 
     LineBox[{{600., 7.627282713989481}, {700., 7.627282713989481}}]}, 
    {RGBColor[0, 0, 1], PointSize[
      NCache[
       Rational[1, 60], 0.016666666666666666`]], Thickness[0.01], 
     LineBox[{{-100., 7.030474704903095}, {0., 7.030474704903095}}]}, 
    {RGBColor[1, 0, 0], PointSize[
      NCache[
       Rational[1, 60], 0.016666666666666666`]], Thickness[0.01], 
     LineBox[{{600., -2.274751780594178}, {700., -2.274751780594178}}]}, 
    {RGBColor[1, 0, 0], PointSize[
      NCache[
       Rational[1, 60], 0.016666666666666666`]], Thickness[0.01], 
     LineBox[CompressedData["
1:eJxTTMoPSmViYGCQAmIQDQM8N/6+U6t5tx/Cs3CYtkX0wALvD1C+h0PjuhUc
epEfofwghwtJFoG70z5B+REOHu5HZ3qUfIby4xxUDvo/utr4BcpPcohRv6GV
3P8Vyk912HgkrvjDnG9QfoZD0s3Hu2tXfYfysx2WzEln4d7xA8rPc3hp+8pn
xtGfEH5DgcP3p9lTVS//gsoXOdzc/ubupge/ofLFDmsu5qg5vPsDlS91CPJ9
k3f291+ofJkDh2P29ijO/1D5Codv97/8L+ZmOACRr3QweWu8xGoSlM9Q7eB/
vsiDUZIRKl/jEN6z8c3x+VA+Q51Ds+aHCX1qTFD5egef1XqmoWth/AaHXtHc
m9ImzBC+Q6PDtOzVtY92QfkMTQ52G14qrnRkgfAPNDl8e6p+LP8EywEALiuM
9g==
      "]]}, 
    {RGBColor[1, 0, 0], PointSize[
      NCache[
       Rational[1, 60], 0.016666666666666666`]], Thickness[0.01], 
     LineBox[{{0., -0.6501084255662181}, {-100., -0.6501084255662181}}]}, 
    {RGBColor[1, 0, 0], PointSize[
      NCache[
       Rational[1, 60], 0.016666666666666666`]], Thickness[0.01], 
     LineBox[{{600., -1.3473620383612206`}, {
      700., -1.3473620383612206`}}]}}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox[
     TagBox[
      StyleBox["\"z (\[Mu]m)\"", 32, StripOnInput -> False], HoldForm], 
     TraditionalForm], 
    FormBox[
     TagBox[
      StyleBox[
      "\"log(I) (\\!\\(\\*SubscriptBox[\\(log\\), \
\\(10\\)]\\)[W/\\!\\(\\*SuperscriptBox[\\(cm\\), \\(2\\)]\\)])\"", 32, 
       StripOnInput -> False], HoldForm], TraditionalForm]},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->600,
  Method->{
   "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->{{-100., 700.}, {-2.5978694420743933`, 7.725248219405822}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic},
  TicksStyle->Directive[28]]], "Output",
 CellChangeTimes->{
  3.93672064881179*^9, 3.936720702780301*^9, 3.936720846550415*^9, 
   3.9367211161248617`*^9, 3.9367229251985445`*^9, {3.9367233579531775`*^9, 
   3.936723367242905*^9}, 3.936723457321052*^9, 3.9367235085810843`*^9, 
   3.936724126373093*^9, 3.9367248211143045`*^9, 3.938693228589094*^9, 
   3.9386935883682013`*^9, 3.938694066734861*^9, 3.938699696583226*^9, 
   3.938704030718687*^9, 3.93870406417045*^9, 3.9387042138313975`*^9, 
   3.938704365350878*^9, 3.938704482267006*^9, 3.9387049933810673`*^9, 
   3.9387050940849547`*^9, 3.938705493593665*^9, 3.938705762303291*^9, 
   3.9393001333177114`*^9},
 CellLabel->
  "Out[257]=",ExpressionUUID->"274cdb1c-6319-462c-bd83-fb6ee9df87d8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLinePlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "E1aPlotData", ",", "E1PlotData", ",", "E1tPlotData", ",", "E1rPlotData", 
     ",", "E2aPlotData", ",", "E2PlotData", ",", "E2tPlotData", ",", 
     "E2rPlotData", ",", "E3PlotData", ",", "E4PlotData"}], "}"}], ",", 
   RowBox[{"PlotStyle", "->", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Blue", ",", 
        RowBox[{"Thickness", "[", ".01", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", 
        RowBox[{"Thickness", "[", ".01", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", 
        RowBox[{"Thickness", "[", ".01", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", 
        RowBox[{"Thickness", "[", ".01", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Red", ",", 
        RowBox[{"Thickness", "[", ".01", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Red", ",", 
        RowBox[{"Thickness", "[", ".01", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Red", ",", 
        RowBox[{"Thickness", "[", ".01", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Red", ",", 
        RowBox[{"Thickness", "[", ".01", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", "Dashed", ",", 
        RowBox[{"Thickness", "[", ".01", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Red", ",", "Dashed", ",", 
        RowBox[{"Thickness", "[", ".01", "]"}]}], "}"}]}], "}"}]}], ",", 
   RowBox[{"AxesLabel", "->", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Style", "[", 
       RowBox[{"\"\<z (\[Mu]m)\>\"", ",", "32"}], "]"}], ",", 
      RowBox[{"Style", "[", 
       RowBox[{
       "\"\<\!\(\*SubscriptBox[\(log\), \(10\)]\)(I)\>\"", ",", "32"}], 
       "]"}]}], "}"}]}], ",", 
   RowBox[{"TicksStyle", "->", 
    RowBox[{"Directive", "[", "26", "]"}]}], ",", 
   RowBox[{"ImageSize", "->", "600"}], ",", 
   RowBox[{"PlotRange", "->", "All"}], ",", 
   RowBox[{"AxesOrigin", "->", 
    RowBox[{"{", 
     RowBox[{"0", ",", 
      RowBox[{"-", "3"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.9367230375204687`*^9, 3.936723065913344*^9}, {
   3.936723265718774*^9, 3.936723310182355*^9}, {3.936723550372265*^9, 
   3.936723557543154*^9}, {3.93672360901169*^9, 3.936723628052655*^9}, {
   3.936724899711887*^9, 3.936724902889043*^9}, {3.9386917320862365`*^9, 
   3.938691739816196*^9}, {3.9386917796100035`*^9, 3.9386917855763345`*^9}, {
   3.9387051314481983`*^9, 3.9387051315178685`*^9}, 3.9387052000281086`*^9, {
   3.9393001669622765`*^9, 3.939300174334695*^9}},
 CellLabel->
  "In[259]:=",ExpressionUUID->"b32bf6fc-6bed-4de5-875c-3af4660be167"],

Cell[BoxData[
 GraphicsBox[{{}, {{}, {}, 
    {RGBColor[0, 0, 1], PointSize[
      NCache[
       Rational[1, 72], 0.013888888888888888`]], Thickness[0.01], 
     LineBox[{{-100., 7.725248219405822}, {0., 7.725248219405822}}]}, 
    {RGBColor[0, 0, 1], PointSize[
      NCache[
       Rational[1, 72], 0.013888888888888888`]], Thickness[0.01], 
     LineBox[CompressedData["
1:eJxTTMoPSmViYGCQAmIQDQMrj513Pr9I1gHCs3DYy3gSie/hUGlwGIkf5DDX
YB8SP8Jh25OdSPw4h3LjbUj8JAcF9s1I/FQHJt8NSPwMB76va5H42Q6lH1cj
8fMcos1WIfgNBQ79O1cgyRc5+BUtR5IvdhCIXIYkX+oQl74USb7MYcX0JUjy
FQ7qTxcjyVc67PdG4jNUO7w8vghJvsZhThgSn6HOwe7rQiT5eoeJC5H5DQ7L
I5H4Do0Ot6SR+AxNDvueLUDwDzQ5SO6E8AErBHfJ
      "]]}, 
    {RGBColor[0, 0, 1], PointSize[
      NCache[
       Rational[1, 72], 0.013888888888888888`]], Thickness[0.01], 
     LineBox[{{600., 7.627282713989481}, {700., 7.627282713989481}}]}, 
    {RGBColor[0, 0, 1], PointSize[
      NCache[
       Rational[1, 72], 0.013888888888888888`]], Thickness[0.01], 
     LineBox[{{-100., 7.030474704903095}, {0., 7.030474704903095}}]}, 
    {RGBColor[1, 0, 0], PointSize[
      NCache[
       Rational[1, 72], 0.013888888888888888`]], Thickness[0.01], 
     LineBox[{{600., -2.274751780594178}, {700., -2.274751780594178}}]}, 
    {RGBColor[1, 0, 0], PointSize[
      NCache[
       Rational[1, 72], 0.013888888888888888`]], Thickness[0.01], 
     LineBox[CompressedData["
1:eJxTTMoPSmViYGCQAmIQDQM8N/6+U6t5tx/Cs3CYtkX0wALvD1C+h0PjuhUc
epEfofwghwtJFoG70z5B+REOHu5HZ3qUfIby4xxUDvo/utr4BcpPcohRv6GV
3P8Vyk912HgkrvjDnG9QfoZD0s3Hu2tXfYfysx2WzEln4d7xA8rPc3hp+8pn
xtGfEH5DgcP3p9lTVS//gsoXOdzc/ubupge/ofLFDmsu5qg5vPsDlS91CPJ9
k3f291+ofJkDh2P29ijO/1D5Codv97/8L+ZmOACRr3QweWu8xGoSlM9Q7eB/
vsiDUZIRKl/jEN6z8c3x+VA+Q51Ds+aHCX1qTFD5egef1XqmoWth/AaHXtHc
m9ImzBC+Q6PDtOzVtY92QfkMTQ52G14qrnRkgfAPNDl8e6p+LP8EywEALiuM
9g==
      "]]}, 
    {RGBColor[1, 0, 0], PointSize[
      NCache[
       Rational[1, 72], 0.013888888888888888`]], Thickness[0.01], 
     LineBox[{{0., -0.6501084255662181}, {-100., -0.6501084255662181}}]}, 
    {RGBColor[1, 0, 0], PointSize[
      NCache[
       Rational[1, 72], 0.013888888888888888`]], Thickness[0.01], 
     LineBox[{{600., -1.3473620383612206`}, {700., -1.3473620383612206`}}]}, 
    {RGBColor[0, 0, 1], PointSize[
      NCache[
       Rational[1, 72], 0.013888888888888888`]], Thickness[0.01], 
     Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxTTMoPSmViYGCQAmIQDQPrb2x71ech6QDhWTjky+9A4ns4OGTtROIHOejv
3IXEj3Dw4tmDxI9zmJu8F4mf5GC2fx8SP9VBSf4AEj/DoaD5IBI/20H3zSEk
fp5DRuQRBL+hwEHv9FEk+SKHfsfjSPLFDjP2nECSL3WItDmFJF/m8PDAaST5
Cgd7r7NI8pUOTTfOIclXO+zOvoAkX+Pwg/kSknydg9fCy0jy9Q4Hna8i8Rsc
cl9fQ/AdGh3iZ9xA0t/ksMLrFoJ/oMkhkukOmA8AqJ15/w==
      "]]}, 
    {RGBColor[1, 0, 0], PointSize[
      NCache[
       Rational[1, 72], 0.013888888888888888`]], Thickness[0.01], 
     Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxTTMoPSmViYGCQAmIQDQOLP2Zp/Ur9vR/Cs3Dwcb4q8tMfxvdwWN9i//+7
JYwf5DB768qX35Rh/AiHW1eFr3zlhfHjHMyf1u778v0XlJ/kUP34+YrPD2H8
VIeiC4GTP52G8TMcHq/eXftxK4yf7TC9VDXjw3wYP88hTLc/6H0nlN9Q4PD0
0g+bd8Uw+SIHnrQk9bexMPlih75npwXfuMPkSx2MQ0z/vDKEyZc57F4379lL
aZh8hcObr+wXX7DC5CsdOjQLdz9//xMqX+3g73lr6bObUH5DjQNzqPOEp4dh
8nUOKT5rqp6shcnXOxjpi6Y+ng7jNzho/q31f9QI5Ts0OnBue2b5MBumv8mh
L9Jf5UEolH+gyaH4+Xa++/Y/9wMA0QKdug==
      "]]}}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox[
     TagBox[
      StyleBox["\"z (\[Mu]m)\"", 32, StripOnInput -> False], HoldForm], 
     TraditionalForm], 
    FormBox[
     TagBox[
      StyleBox[
      "\"\\!\\(\\*SubscriptBox[\\(log\\), \\(10\\)]\\)(I)\"", 32, 
       StripOnInput -> False], HoldForm], TraditionalForm]},
  AxesOrigin->{0., -3.},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->600,
  Method->{
   "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->{{-100., 700.}, {-3., 7.725248219405822}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic},
  TicksStyle->Directive[26]]], "Output",
 CellChangeTimes->{
  3.9367230664390507`*^9, {3.936723269503048*^9, 3.936723310653675*^9}, 
   3.9367233725817776`*^9, 3.9367234693700223`*^9, 3.936723512350055*^9, {
   3.9367235538586545`*^9, 3.9367235590089817`*^9}, {3.9367236118889513`*^9, 
   3.936723628894698*^9}, 3.9367241303514895`*^9, 3.9367248260386953`*^9, 
   3.9367249035011177`*^9, 3.9386932286462393`*^9, 3.938694069434925*^9, 
   3.93869411477485*^9, 3.938699696658277*^9, 3.9387040308309174`*^9, 
   3.938704071148424*^9, 3.938704371068077*^9, 3.938704486480919*^9, 
   3.9387049970670567`*^9, 3.93870510171582*^9, 3.9387051324171696`*^9, 
   3.938705200756596*^9, 3.938705497673829*^9, 3.938705785475792*^9, 
   3.9388549502140317`*^9, 3.9393001379395304`*^9, 3.9393001751414366`*^9},
 CellLabel->
  "Out[259]=",ExpressionUUID->"a9b213cc-5bf5-4280-a68a-6578e3631650"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Plot 3b", "Item",
 CellChangeTimes->{{3.9367112154108496`*^9, 
  3.936711218341689*^9}},ExpressionUUID->"52531219-7d5a-4e31-9f0b-\
af6ef0a954d3"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"A", "=", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       FractionBox[
        RowBox[{"2", "\[Pi]"}], "k2"], "*", 
       SuperscriptBox["10", 
        RowBox[{"-", "7"}]]}], ")"}], "2"]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{"cm", "^", "2"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.939313063832779*^9, 
  3.939313065207205*^9}},ExpressionUUID->"d761b7d3-1991-41fa-9854-\
720cbb09d827"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"A", "=", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       FractionBox[
        RowBox[{"2", "\[Pi]"}], "k2"], "*", 
       SuperscriptBox["10", 
        RowBox[{"-", "7"}]]}], ")"}], "2"]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{"cm", "^", "2"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"IN", "=", 
    RowBox[{"2", "*", 
     FractionBox["1.3", "2"], 
     FractionBox[
      RowBox[{"\[Omega]2", " ", "\[Gamma]m"}], "A"], "*", "1.602", "*", 
     SuperscriptBox["10", 
      RowBox[{"-", "19"}]]}]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{"W", "/", 
    RowBox[{"cm", "^", "2"}]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"E1a", "=", ".0125"}], ";"}], 
  RowBox[{"(*", 
   RowBox[{"V", "/", "nm"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"GainsFactor", "=", 
   RowBox[{"tildeg", "*", "L", "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"\[Xi]12", "[", 
       RowBox[{"0", ",", "0"}], "]"}], "*", 
      SuperscriptBox["E1a", "2"]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "GainsFactor", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"I2Spontaneous", "[", "z_", "]"}], ":=", 
   RowBox[{"IN", "*", "GainsFactor", "*", 
    FractionBox[
     RowBox[{"(", 
      RowBox[{"L", "-", "z"}], ")"}], "L"], 
    RowBox[{"Exp", "[", 
     RowBox[{"GainsFactor", "*", 
      FractionBox[
       RowBox[{"(", 
        RowBox[{"L", "-", "z"}], ")"}], "L"]}], "]"}], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"BesselI", "[", 
       RowBox[{"0", ",", 
        RowBox[{"GainsFactor", "*", 
         FractionBox[
          RowBox[{"(", 
           RowBox[{"L", "-", "z"}], ")"}], "L"]}]}], "]"}], "-", 
      RowBox[{"BesselI", "[", 
       RowBox[{"1", ",", 
        RowBox[{"GainsFactor", "*", 
         FractionBox[
          RowBox[{"(", 
           RowBox[{"L", "-", "z"}], ")"}], "L"]}]}], "]"}]}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"I2SpontData", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"I1SpontData", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"I1", "=", 
    RowBox[{"2", "\[Epsilon]0", " ", "Cnm", "*", 
     SuperscriptBox[
      RowBox[{"Abs", "[", "E1a", "]"}], "2"], "*", "1.602", "*", 
     SuperscriptBox["10", 
      RowBox[{"-", "19"}]], "*", 
     RowBox[{
      SuperscriptBox["10", "14"], "/", "n"}]}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"I2SpontData", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", ".1"}], ",", 
        RowBox[{"I2Spontaneous", "[", "0", "]"}]}], "}"}]}], "]"}], ";"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Plotpoints", "=", "100"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"k", "=", "0"}], ",", 
    RowBox[{"k", "<=", "Plotpoints"}], ",", 
    RowBox[{"k", "++"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"myz", "=", 
      RowBox[{"L", "*", 
       FractionBox["k", "Plotpoints"]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"myI2Spont", "=", 
      RowBox[{"I2Spontaneous", "[", "myz", "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"myzmm", "=", 
      RowBox[{"myz", "*", 
       SuperscriptBox["10", 
        RowBox[{"-", "3"}]]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"AppendTo", "[", 
      RowBox[{"I2SpontData", ",", 
       RowBox[{"{", 
        RowBox[{"myzmm", ",", 
         RowBox[{"Log10", "[", "myI2Spont", "]"}]}], "}"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"AppendTo", "[", 
      RowBox[{"I1SpontData", ",", 
       RowBox[{"{", 
        RowBox[{"myzmm", ",", 
         RowBox[{"Log10", "[", "I1", "]"}]}], "}"}]}], "]"}], ";"}]}], 
   "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"I2SpontData", ",", 
      RowBox[{"{", 
       RowBox[{".7", ",", "0"}], "}"}]}], "]"}], ";"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"ListLinePlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"I2SpontData", ",", "I1SpontData"}], "}"}], ",", 
   RowBox[{"PlotStyle", "->", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Blue", ",", 
        RowBox[{"Thickness", "[", ".01", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Red", ",", 
        RowBox[{"Thickness", "[", ".01", "]"}]}], "}"}]}], "}"}]}], ",", 
   RowBox[{"AxesLabel", "->", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Style", "[", 
       RowBox[{"\"\<z (\[Mu]m)\>\"", ",", "32"}], "]"}], ",", 
      RowBox[{"Style", "[", 
       RowBox[{
       "\"\<\!\(\*SubscriptBox[\(log\), \(10\)]\)(I)\>\"", ",", "32"}], 
       "]"}]}], "}"}]}], ",", 
   RowBox[{"TicksStyle", "->", 
    RowBox[{"Directive", "[", "28", "]"}]}], ",", 
   RowBox[{"ImageSize", "->", "600"}], ",", 
   RowBox[{"Ticks", "->", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"200", ",", "400", ",", "600"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "11"}], ",", 
        RowBox[{"-", "8"}], ",", 
        RowBox[{"-", "5"}], ",", 
        RowBox[{"-", "2"}], ",", "2", ",", "5", ",", "8"}], "}"}]}], "}"}]}], 
   ",", 
   RowBox[{"PlotRange", "->", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "650"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "11"}], ",", "10"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"AxesOrigin", "->", 
    RowBox[{"{", 
     RowBox[{"0", ",", 
      RowBox[{"-", "11"}]}], "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGCQAWIQ3VPm774u5K3js6oFXiB6yW9lfxC9UXZXKIh+Y2de
AaJLejurQPTfOWL1IFrU9v0kEJ1kd3kRiI4wN1gFovl3WK8D67uw8hCIjuH7
8AdEFzst/wuixXbbs64H0nOn3+cD0SF1mSIgev+yUhkQbWCy0nsDkK6SXw2m
m6fvbtwCpPd93w+me+/YtoHomLcV7SD6lGzfPDBt8hZMH77w+AhY/dH/p0B0
w9VjV0D0muBTYHpWi/M9ED1/4plHIDpiz3nliyD3zJ2jB6JvLTF7VxIB9L+C
4EcQvcA1+juI/vbg918Qfek1F1MpkNZyEQLTiTs/R4PoRwW88SDaqzkiGURv
cHkIpheVcc2oBtKPFzrsANEhmgr3QbSyyFEwzZFg9ApEf5UQfAMW9xVeWgOk
+xK7wbTJ112sR4H0qeYcThAtOI0vf17kW8d3DI2NIBoAq1Ts5w==
  "],
 CellLabel->
  "In[428]:=",ExpressionUUID->"b7acb722-e77e-4578-aebc-972e62b4f24a"],

Cell[BoxData["12.260624640490438`"], "Print",
 CellChangeTimes->{
  3.9387067328521595`*^9, {3.938854953533482*^9, 3.9388549877844787`*^9}, 
   3.9393002183911405`*^9, {3.939300253250347*^9, 3.939300364702428*^9}},
 CellLabel->
  "During evaluation of \
In[428]:=",ExpressionUUID->"77ca5df6-925e-44b7-ba3c-ed506df49133"],

Cell[BoxData[
 GraphicsBox[{{}, {{}, {}, 
    {RGBColor[0, 0, 1], PointSize[
      NCache[
       Rational[1, 72], 0.013888888888888888`]], Thickness[0.01], 
     LineBox[CompressedData["
1:eJw103tQVHUcBfALGCC0KgiyPNRFrI3RaUnwQaKeQVgKDZFXMCgg7sozWFhY
3ngXmYGiUURHcElYQirHeLTMJKYTC4SxQ8NDyCEyWgMhSEIE4mUQzX69M3fu
fObc8zv3n2sfmegn1mcYRrR2//98dZWnBQ1+vE3TrBMX3BsrCo1rH/ktdHa0
Gg8P/0LeA7m1b8yPQi35ACYHnx8Rlw+TD0O7fkWtmRolu8PEr+36zNEJsieE
RiVxT0onye8hOOPa047U5+RjcJNaKuXbX5B9sFvF32GjmdGZ9cU+YXzV5eQ5
yv0g/V57bMx2nnJ/bORme9m0L1AeiIXx1m8cE5YoD8LLgwGVFlYvKQ+GVWyC
7WDzv5SHYOxsHD8jepXyUNi1WZ9OL2TUuvwUDOz6fq88paczE4ae2uUilZM+
5eHIFLKd9esMyBEwvtCqVzpAxhncTHIuivp6HfUjodo9ep/HvqazOhJ3qq1H
WvwNqX8Wn9U2eXrzjagvQoG4e+vdJTIjxh+NsxWcLmPqi2HW+sW0sGo99c9B
NVXmLEoxoX4ULFTTMpGXKfWjseuqrEVo8zr1o+F+8qapySSZjQHaGo7UNnOo
H4tps5QDgpIN1I/DiOs+9UXRRurH4VpvnZfYdhP14+FRmFMjySfjI/iElrZE
T5KZBLytbRg4HmRG/QR8mMq3tWsms4m4aztx+2e+uc48CZKyj1amF5NZCU76
yxcNFslaCZwNU2tlZzbTXhISvu1QdGvIyiSIFA6fcvZY0H4yXMas9goU5Ihk
GHP6Bc76lvQ9ydhbULxkFUvmSbGB0zj7ay+ZlWLkSmVojusW2pdi8bTAa0lJ
Rgq6Qh7U+Bpb0X4K+qSr+3MTyUwqCoPHi9hH5IhUcG53zQcc4tJ+KsLtC64u
VJN5Mlwq89sfbWJN+zIUn/OIU0rIWhkGYo/H3nhERhrsXOYsQ91saD8Nt24t
T/VXkZl0iHrmzA2NbGk/He9HBewajyOr06E4xE9K7yHzMuCZIKiudbGj/Qzc
8fjHIK+MrM3AalV/yN/LZGSiNnDLzETYVtrPhOtQfX1iC5nJQtSkv3mKwzba
z4LPHDd0Kp+szkJg0Qd1A0/JvGz8MHXFmy/cTvvZ4Bo86X1YQ9ZmI5zT3h+j
z6P9HHyntLx3+R2yMgfuB6WPwyLITC60A07ePRfJEbko/qREu/ZH0n4u7Fdi
fquZIPPOQ5wTeH0z1572z8Oyzi3+XU+y9jzKCyo0jslkHos/nz3+cr6C7Mti
8VKTb2vnqz6LC4LuTtUCuYHF59OMC/PmDjqPhfMb+fJZf/ImOe4PpdybySND
Dj9B74mCRrJEDq/DD+Ylo2SlHIrlGPef7Bx07ll7v8rR9EQwmcmD25DsxcNy
slMehob0mr56Ro7IQ051wKQqaKfOxXn4i6fxbF/dqf4P5K/8GQ==
      "]]}, 
    {RGBColor[1, 0, 0], PointSize[
      NCache[
       Rational[1, 72], 0.013888888888888888`]], Thickness[0.01], 
     LineBox[CompressedData["
1:eJxdz80qhUEABuDJ1oKsrPTZWcrKSpNSSul0REQch+Ofc/z/M1yBXMHZ2Vpb
fZfgEr5LQZLmmZqmp7e3txlutuutnhBC6/v+vH+n97Vv4ONtKP5qMOYewWN4
HE/gSTyFp/EMns2dauR18jnyefIF8kXyJfJl8hXyVfI13Mgd1+k3c5c4bdDf
pN+ij9MW/W36O/Rx2qW/R3+fPk4H9A/pH9HHqZ276JDjCsfj3F0cTnI3cImL
U/ZxheMZ+zics49LXFywjyscL9nH4Yp9XOLimn1c4XjDPg637OMSF3fs4wrH
e/ZxeGAfl7h4ZB9XuEi5azjhd1zh/if+hzu4iz9xeM49ihv4BZf//gIPaWU8

      "]]}}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox[
     TagBox[
      StyleBox["\"z (\[Mu]m)\"", 32, StripOnInput -> False], HoldForm], 
     TraditionalForm], 
    FormBox[
     TagBox[
      StyleBox[
      "\"\\!\\(\\*SubscriptBox[\\(log\\), \\(10\\)]\\)(I)\"", 32, 
       StripOnInput -> False], HoldForm], TraditionalForm]},
  AxesOrigin->{0., -11.},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->600,
  Method->{
   "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->{{0., 650.}, {-11., 10.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {0, 0}},
  Ticks->{{{200, 
      FormBox["200", TraditionalForm]}, {400, 
      FormBox["400", TraditionalForm]}, {600, 
      FormBox["600", TraditionalForm]}}, {{-11, 
      FormBox[
       RowBox[{"-", "11"}], TraditionalForm]}, {-8, 
      FormBox[
       RowBox[{"-", "8"}], TraditionalForm]}, {-5, 
      FormBox[
       RowBox[{"-", "5"}], TraditionalForm]}, {-2, 
      FormBox[
       RowBox[{"-", "2"}], TraditionalForm]}, {2, 
      FormBox["2", TraditionalForm]}, {5, 
      FormBox["5", TraditionalForm]}, {8, 
      FormBox["8", TraditionalForm]}}},
  TicksStyle->Directive[28]]], "Output",
 CellChangeTimes->{
  3.9386932327962036`*^9, 3.9386996967457356`*^9, 3.9387045974888735`*^9, {
   3.938704645805733*^9, 3.938704835220601*^9}, 3.93870515063474*^9, 
   3.9387067329161563`*^9, {3.938854953604149*^9, 3.938854987863867*^9}, 
   3.93930021845632*^9, {3.939300253318815*^9, 3.93930036476645*^9}},
 CellLabel->
  "Out[439]=",ExpressionUUID->"e2226b6c-e7c8-47f4-9118-ed234b494776"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1141.2, 574.8},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"13.1 for Microsoft Windows (64-bit) (June 16, 2022)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"842e8736-c599-429b-9886-cb668fcfd391"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 177, 3, 32, "Item",ExpressionUUID->"a3df9c9b-68d9-45f2-a57a-c2dca858fbf5"],
Cell[CellGroupData[{
Cell[782, 29, 497, 13, 67, "Input",ExpressionUUID->"624a2b8c-9db7-444b-b603-de89c37e96dc"],
Cell[1282, 44, 160, 2, 32, "Output",ExpressionUUID->"9e498bc1-2b3c-41bd-992a-0eee42337222"]
}, Open  ]],
Cell[1457, 49, 15651, 490, 1047, "Input",ExpressionUUID->"3140576a-54a9-4d6d-b089-3b10a6830151"],
Cell[CellGroupData[{
Cell[17133, 543, 71340, 1796, 4158, "Input",ExpressionUUID->"13504fe7-d04a-4de6-809d-8a1d1f7f4174"],
Cell[88476, 2341, 813, 16, 28, "Message",ExpressionUUID->"570a8551-4330-436a-9052-d0d9503ef9ff"],
Cell[89292, 2359, 807, 16, 28, "Message",ExpressionUUID->"10d2716e-d1ff-468f-9a04-455e45d8164b"],
Cell[90102, 2377, 853, 16, 28, "Message",ExpressionUUID->"fe69e718-19f6-4528-b7aa-b144c68d94d1"],
Cell[90958, 2395, 771, 15, 28, "Message",ExpressionUUID->"753a9cf8-464d-4242-99af-48d6190b38a0"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[91778, 2416, 179, 3, 32, "Item",ExpressionUUID->"481b45aa-7d91-4038-9b82-4780a1fd4c70"],
Cell[CellGroupData[{
Cell[91982, 2423, 67996, 1712, 3899, "Input",ExpressionUUID->"7a2eb5bf-4201-4a7c-8151-59ac72159b54"],
Cell[159981, 4137, 727, 14, 28, "Message",ExpressionUUID->"e6acdcec-370b-463a-a9e1-76099b665d28"],
Cell[160711, 4153, 768, 14, 28, "Message",ExpressionUUID->"0d3d64c6-73d7-4d4f-ba7f-6b415f103db4"],
Cell[161482, 4169, 725, 14, 28, "Message",ExpressionUUID->"6bbc6afe-f6ab-44e1-9a65-e4fa70fbfd3c"],
Cell[162210, 4185, 694, 13, 28, "Message",ExpressionUUID->"09820d19-f35e-4739-94c8-23126091d6f0"],
Cell[162907, 4200, 10212, 193, 389, "Output",ExpressionUUID->"6b0f652c-6bde-4236-9aa2-be73cd404827"]
}, Open  ]],
Cell[CellGroupData[{
Cell[173156, 4398, 1905, 50, 67, "Input",ExpressionUUID->"70f83c55-925e-4b89-942d-5e575a9c3de8"],
Cell[175064, 4450, 9877, 185, 409, "Output",ExpressionUUID->"96dd7e98-9f90-4778-8059-af55cc421b89"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[184990, 4641, 153, 3, 32, "Item",ExpressionUUID->"1efd3d5a-f07d-4982-a455-19ebe0c80fe6"],
Cell[CellGroupData[{
Cell[185168, 4648, 69448, 1815, 3931, "Input",ExpressionUUID->"42ebcf88-3871-48b3-b7c8-948e2d96dd5b"],
Cell[254619, 6465, 1396, 24, 28, "Message",ExpressionUUID->"4d5f4a01-75f2-44c4-894d-92e5dd480113"],
Cell[256018, 6491, 1388, 24, 28, "Message",ExpressionUUID->"230a5a6f-d8ca-4f8c-a915-673c65152af6"],
Cell[257409, 6517, 1440, 24, 28, "Message",ExpressionUUID->"5b3faa1e-3fff-4191-9744-91aa5b167616"],
Cell[258852, 6543, 1353, 23, 28, "Message",ExpressionUUID->"1c43b1b8-ef50-4cd9-9a85-a365a4b9bebf"],
Cell[CellGroupData[{
Cell[260230, 6570, 739, 11, 22, "Print",ExpressionUUID->"7536bea0-c673-4f33-9bf9-1332b42266fa"],
Cell[260972, 6583, 738, 11, 22, "Print",ExpressionUUID->"dffeb2bb-12f4-419a-a177-d47faf31bdfb"],
Cell[261713, 6596, 1064, 19, 38, "Print",ExpressionUUID->"ccbfafe5-7c56-4171-a08e-f28f1dbf2af5"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[262838, 6622, 166, 3, 32, "Item",ExpressionUUID->"5937aeba-ede7-496a-a373-7c83a1cf322d"],
Cell[CellGroupData[{
Cell[263029, 6629, 11755, 319, 1028, "Input",ExpressionUUID->"6d773298-d99e-42ff-b3fa-00d3d91702a6"],
Cell[274787, 6950, 26271, 553, 378, "Output",ExpressionUUID->"29bce759-0a31-4671-956a-6458b4f17117"]
}, Open  ]],
Cell[CellGroupData[{
Cell[301095, 7508, 2105, 54, 93, "Input",ExpressionUUID->"a697aa11-d92a-4cf6-8fac-594c9f2b4fc2"],
Cell[303203, 7564, 4308, 103, 323, "Output",ExpressionUUID->"274cdb1c-6319-462c-bd83-fb6ee9df87d8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[307548, 7672, 2711, 66, 105, "Input",ExpressionUUID->"b32bf6fc-6bed-4de5-875c-3af4660be167"],
Cell[310262, 7740, 5428, 124, 396, "Output",ExpressionUUID->"a9b213cc-5bf5-4280-a68a-6578e3631650"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[315739, 7870, 151, 3, 32, "Item",ExpressionUUID->"52531219-7d5a-4e31-9f0b-af6ef0a954d3"],
Cell[315893, 7875, 450, 15, 45, "Input",ExpressionUUID->"d761b7d3-1991-41fa-9854-720cbb09d827"],
Cell[CellGroupData[{
Cell[316368, 7894, 6347, 190, 530, "Input",ExpressionUUID->"b7acb722-e77e-4578-aebc-972e62b4f24a"],
Cell[322718, 8086, 320, 6, 22, "Print",ExpressionUUID->"77ca5df6-925e-44b7-ba3c-ed506df49133"],
Cell[323041, 8094, 4323, 100, 373, "Output",ExpressionUUID->"e2226b6c-e7c8-47f4-9118-ed234b494776"]
}, Open  ]]
}, Open  ]]
}
]
*)

